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Pumpjet 

Streamline  Curvature  Method 
Blade-through  Flow 
Blade-to-Blade  Method 

The  pumpjet  is  a  unique  fluid  machine  which  utilizes  retarded  wake  flow  and  produces 
high  propulsive  efiSdency  such  as  90%.  The  existing  pumpjet  design  method  is  based  on  a 
simple  two-dimensional  graphic  method  which  was  used  for  pump  design.  As  the  demand 
for  the  speed  of  underwater  vehides  increased  in  recent  years,  the  existing  design  method 
became  inappropriate.  Effort  has  been  made  to  develop  a  new  quasi-three-dimensional 
pump  design-method  by  combining  a  blade-through  flow  theory  with  blade-to-blade  flow 
theory. 
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The  pumpjet  is  consideared  to  be  one  of  the  most  promising  candidate  propulsors  for  high 
speed  underwater  vehicles  and,  as  a  matter  of  fact,  it  has  recently  been  employed  for 
MK  48  torpedoes,  ALWT  Advanced  light  Weight  Tbrpedo,  now  called  MK  50  and  other 
underwater  vehicles.  The  paimpjet  superiority  over  other  propulsion  devices  is  represented 
by  two  major  factors,  i.e.,  high  efficiency  and  quietness. 


The  pvunpjet  is  one  of  few  fluid  devices  which  positively  utilizes  retarded  wake  flow  and 
produces  high  propulsive  efficiency.  This  peculiar  situation  may  be  understood  readily  by 
considering  the  momentum  equation  applied  to  a  control  volume  surrounding  an 
imderwater  vehicle,  fixed  to  the  inertial  coordinate  system.  In  the  conventional  propeller, 
for  example,  the  velocity  of  flow  coming  into  a  propeUer  blade  is  approximately  equal  to  the 
vehicle  speed  since  the  propeller  diameter  is  large  enough  to  enjoy  the  free  stream  flow.  In 
order  for  the  propeller  to  generate  any  effective  thrust,  it  should  accelerate  the  flow,  the 
ejected  flow  speed  being  faster  than  the  incoming  flow.  ^If  one  observes  this  situation  from 
the  inertial  fiiame,  the  ejected  flow  has  a  finite  positive  flow  speed  against  the  surroundinig^^ 
environment.  It  means  that  certain  amount  of  the  energy  imparted  on  the  fluid  by  the 
thruster  is  dxunped  in  the  surrounding  water.  On  the  other  hand,  the  pumpjet  receives  the 
retarded  flow  velocity,  slower  than  the  fi:^  stream  velocity.  In  order  to  generate  a  thrust, 
again  this  flow  should  be  accelerated.  However,  if  the  pumpjet  is  properly  designed,  the 
accelerated  flow  velocity  can  nearly  be  that  of  the  vehicle  speed.  If  one  looks  at  a  similar 
control  volume,  from  the  inertial  firame,  the  ejected  flow  out  of  the  pumpjet  has  almost  no 
absolute  velocity  and  thus  leaves  hardly  any  jet  wake  after  the  vehicle  passed.  There 
exists  much  less  wasted  energy  in  the  flow  field  after  a  vehicle  with  a  pumpjet  passes.  This 
is  the  major  reason  why  the  pumpjet  can  produce  such  high  propulsive  efficiency  such  as 
90%  or  higher  if  it  is  properly  designed. 
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Quietness  is  a  guaranteed  aspect  with  the  pumpjet,  as  can  be  seen  from  its  configuration 
(see  Figure  1-1);  a  long  shroud  completely  surrovmding  the  rotor  helps  prevent  rotor  noise 
firom  emitting  into  the  outside  flow  field.  Furthermore,  this  ‘Eternal”  flow  machine  has 
better  resistance  characteristics  against  cavitation,  resvdting  in  quieter  shallow  water 
operation  where  propulsors  are  most  svisceptible  to  cavitation. 

However,  in  order  to  achieve  such  a  high  standard  of  performance  there  are  many  penalties 
to  be  paid  in  reality.  The  first  such  penalty  natturally  stems  from  the  pumpjet’s  utilizing 
the  velocity-retarded  wake  flow.  A  typical  meridional  flow  distribution  at  the  inlet  of 
piimpjet  rotor  is  shown  in  Figure  1-2;  the  velocity  at  the  hub  is  only  30%  of  the  free  stream 
velocity  and  rapidly  increases  to  75%  at  the  shroud  internal  boimdary.  This  large  velocity 
gradient  in  the  transverse  direction  is,  of  co\irse,  built  up  by  the  viscous  boundary  layer 
effect  and  is  one  of  the  key  features  causing  difficulties  in  design,  fabrication  and 
eventually  in  achieving  the  pvunpjet  high  performance. 

When  one  designs  an  axial  or  a  near  axial  pump,  it  is  customary  to  distribute  the  blade 
loading  fix)m  hub  to  tip  in  a  forced  vortex  or  a  free  vortex  distribution  method,  such  as 
shown  in  Figure  1-3.  Such  distribution  methods  are  important  in  obtaining  as  vmiform  a 
discharge  jet  behind  the  rotor  as  possible  to  minimize  the  mixing  loss.  However,  a  serious 
problem  arises  in  attempting  to  implement  either  forced  vortex  or  free  vortex  loading 
distribution  against  the  flow  field  having  a  large  velocity  gradient,  as  shown  in  Figure  1-2. 
Due  to  the  lack  of  enough  meridional  flow  velocity  near  the  hub,  the  blade  there  should  be 
designed  to  have  extremely  large  incidence  angle  as  well  as  large  camber.  It  is  for  this 
reason  that  the  pumpjet  rotor  designed  to  date  has  a  distorted  profile  shape  firom  hub  to 
tip,  see  Figure  1-4.  If  this  were  a  conventional  propeller,  the  stagger  angle  would  become 
smaller  towards  the  hub  and  the  camber  would  stay  more  or  less  constant.  However,  for 
the  reason  mentioned  above,  the  pumpjet  blade  stagger  angle  first  becomes  smaller  up  to 
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FIGURE  1-1.  A  TYPICAL  PUMPJET  BLADE  AND 
SHROUD  CONFIGURATION 


Flew  p«nMCsrs,  ^ 


FIGURE  1-2.  A  TYPICAL  MERIDIONAL  FLOW  VELOCITY  (V^) 
DISTRIBUTION  FOR  A  PUMPJET  WHERE  Voo 
IS  UPSTREAM  FLOW  VELOCITY 
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FIGURE  1-3.  A  TYPICAL  LOAD  DISTRIBUTION  IN  TERMS  OF 

Vq3  for  pumpjet  rotor  blade  where  Ve3 

IS  CIRCUMFERENTIAL  COMPONENT  OF  THE 
TURNED  FLOW  VELOCITY 
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the  midspan  area  but  becomes  larger  toward  the  hub  and  thus  the  camber  is  designed  to  be 
substantially  larger. 

This  unusual  rotor  blade  setup  causes  varioiis  hydrodynamic  problems.  First  of  all,  since  a 
typical  flow  incidence  angle  near  the  hub  should  be  surprisingly  high  (e.g.,  30°),  even  a 
slight  error  in  design  may  cause  flow  separation,  possibly  cavitation  and  then  noise 
generation.  Secondly,  even  if  design  is  made  properly,  the  same  vulnerable  situation  is 
generated  with  a  slight  flow  disturbance  or  blade  deformation  due  to  fabrication 
inaccuracy.*  A  recent  study  at  Tfetra  Tbch  (see  the  report  by  Furuya,  et  al.  (1984))  indicated 
that  some  blade  deformation,  particularly  near  the  hub,  coxild  cause  an  increase  of  the 
power  coefGdent,  Cp,  by  as  much  as  7  percent.  Furthermore,  there  exists  a  profound 
discrepancy  between  water  tiumel  test  results  and  actual  sea  runs.  What  causes  such  a 
discrepancy  has  not  been  clarified  to  date.  It  is  conceivable  that  1)  a  small  teim  angle  (such 
^  •  as  1  ~  2°)  existing  at  actual  sea  runs  might  have  caused  a  change  in  boundary  layer 

velocity  profile,  or  2)  the  boundary  layer  may  be  different  between  the  water  tunnel  and 
unbounded  flow  environment  so  that  the  pumpjet  performance  is  substantially  affected.  It 
should  be  noted  that  the  utilization  of  the  boundary  layer  is  an  advantage  in  obtaining  the 
pumpjet’s  high  efficiency  on  one  hand  but  it  is  a  disadvantage  in  causing  many  difficult 
problems  on  the  other  hand. 

The  turning  capability  of  the  underwater  vehicle  thrusted  with  a  pumpjet  is  said  to  be 
inferior  to  that  with,  e.g.,  a  counter-rotating  propeller.  The  reason  for  such  inferior  turning 
capability  seems  also  attributable  to  the  utilization  of  the  wake  flow;  when  the  vehicle 
turns,  the  boundary  layer  substantially  changes.  The  pumpjet  seems  to  lose  a  considerable 


*  Some  pumpjet  rotors  are  produced  by  investment  casting  process  so  that  the  fabrication 
accuracy  caimot  be  expected  to  be  high. 
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thrust  capability  due  to  the  change  of  boundary  layer  velocity  profQe,  resulting  in  a  poor 
tiiming  capability. 

Another  problem  area  in  the  pumpjet  lies  in  the  pumpjet  design  method.  The  only  design 
method  developed  to  date  and  used  is  a  two-dimensional  graphic  method  combined  with 
experimental  data  of  Bruce,  et  al.  (1977)  despite  the  fact  that  the  piunpjet  experiences  a 
three-dimensional  flow.  Based  on  the  momentum  theorem  applied  to  the  cascade 
configuration,  the  blade  sectional  pressure  increase  Ap  is  given 


where  Ap 
Ap 

AVe 

K 


K  V^.AVe 

local  pressure  inaease  through  the  rotor, 
meridional  velocity, 
circumferential  velocity,  and 
a  constant  determined  by  the  cascade  configuration. 


(1.1) 


This  two-dimensional  momentum  theory  indicates  that,  in  order  to  generate  a  certain 
pressure  increase  at  a  blade  section,  only  the  amoiint  of  total  flow  deflection  in  the 
ciroimferential  direction  (between  the  inlet  and  exit)  counts,  see  Figure  1-5.  In  this 
method  once  the  sectional  blade  leading  edge  and  trailing  edge  angles  are  determined,  then 
the  rest  of  the  blade  section  can  be  arbitrarily  determined  by  connecting  these 
predetermined  leading  and  trailing  edges,  e.g.,  anglewise  smoothly. 

One  of  the  obvious  problems  in  this  graphic  method  arises  &om  the  fact  that  the  flow 
coming  into  the  cascade  blade  cannot  exactly  follow  the  blade  camber,  but  substantially 
deviates  firom  it.  What  is  required  therefore  is  a  camber  correction,  the  amount  of  which 
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depends  upon  the  cascade  geometry.  Unfortunately,  a  typical  pumpjet  solidity*  near  the 
hub  is  larger  than  2.0  and  therefore  the  camber  correction  required  there  becomes  as  much 
as  5  times  in  terms  of  hft  coefBdent  It  means  that  the  camber  graphically  constructed 
should  be  deformed  vmtil  the  lift  coefficient  increases  by  5  times  that  graphically  obtained. 
This  correction  is  made  semi-empirically  based  on  limited  numbers  of  existing 
experimental  data  for  cascade  blade  flows.  In  this  sense,  therefore,  this  graphical  method 
is  useless  for  the  blade  design  near  the  hub  and  it  can  be  said  that  the  final  design  is 
almost  entirely  dependent  upon  these  empirical  data. 


*  Solidity  is  defined  as  a  ratio  of  blade  chord  length  to  blade  spacing  measured  normal  to 
the  axial  direction  and  the  high  solidity  means  more  blade  packed  cascade. 
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The  objectives  of  the  work  to  be  conducted  under  the  GHR  program  are  therefore: 

1)  to  develop  a  more  reliable  and  accurate  pumpjet  design  method  based  on  a  three- 
dimensional  pump  or  propeller  design  theory  and  then 

2)  to  improve  the  pumpjet  performance  characteristics. 


The  characteristics  to  be  improved  include: 


a)  the  susceptibility  to  flow  distiirbance  and  rotor’s  deformation  due  to  fabrication 
inaccuracy, 

b)  the  discrepancy  problem  between  the  water  tunnel  test  results  and  high  speed  sea 
runs  and 

c)  the  poor  turning  capability. 
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3.0  METHODOLOGY  SELECTION  FOR  A  THREE-DIMENSIONAL  PUMP  JET 

DESIGN 

3.1  REQUIREMENTS  AND  CANDIDATES 


There  exist  several  possible  approaches  which  can  incorporate  three-dimensionality  into 
pumpjet  design  procedure.  However,  the  following  aspects  should  be  considered  in 
selecting  such  a  methodology: 

1)  Moderate  three-dimensionality  —  A  pumpjet  is  usually  installed  astern  of  the 
underwater  vehicle  hull  where  the  hull  shape  has  a  negative  slope  of  tapering 
shape.  Although  this  provides  three-dimensional  flow  characteristics,  its  three- 
dimensionality  is  rather  mild,  unlike  that  in  radial  pump  cases. 


2)  Capability  of  determining  detailed  blade  profile  shapes  as  well  as  pressure 
distribution  —  In  the  previous  two-dimensional  graphic  method  Bruce,  et  al.  (1974), 
the  blade  profile  shape  was  graphically  determined  for  meeting  the  bead  generation 
requirement.  It  is  mainly  for  this  reason  that  the  method  failed  to  check  the 
possibility  of  flow  separation  after  the  blade  was  designed.  A  new  method  to  be 
developed  in  this  research  work  should  be  the  one  with  which  the  detailed  pressure 
distribution  or  velocity  distribution  on  the  blade  can  be  determined. 


3)  Accurate  loading  determination  supported  by  experiments  —  When  the  sectional 
loading  is  determined  analytically  in  the  course  of  designing  a  pumpjet,  it  is  usually 
quite  inaccurate  since  such  loading  substantially  changes  due  to  the  effect  of 
adjacent  blades.  It  is  therefore  necessary  for  the  new  method  to  incorporate  the 
cascade  effect  into  design  procedure,  or  to  use  an  empirical  approach  to  increase 
such  accuracy. 
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With  these  featxires  taken  into  -consideration,  the  following  three  candidate  methods  are 
compared  in  Section  3.2: 

Method  I:  Katsanis’  Quasi-Three-Dimensional  Method 

Method  II:  Blade-Through  Flow  with  Blade-to-Blade  Flow  Method 

Method  III:  Singularity  Distribution  Method 

for  which  simple  explanation  will  be  given  in  the  following. 

Method  I:  Katsanis’  (1964)  Quasi-Three-Dimensional  Method 

In  this  method  it  is  first  assumed  that  a  mean  stream  sxurface  fix)m  hub  to  shroud 
between  blades  is  known  in  advance.  On  this  stream  surface  a  two-dimensional 
solution  for  the  velocity  and  pressure  distributions  is  obtained.  Then,  an 
approximate  calculation  of  the  blade  surface  velocities  is  made.  This  method  is 
based  on  an  equation  for  the  velocity  gradient  along  an  arbitrary  quasi-orthogonal 
rather  than  the  normal  to  the  streamline.  Since  the  solution  is  obtained  to  this 
quasi-orthogonal  line,  in  this  method,  an  iteration  procedure  needed  in  the  previous 
orthogonal-line  methods  can  be  eliminated  and  a  solution  can  be  obtained  in  a 
single  computer  run. 

Method  II:  Blade-Through  Flow  with  Blade-to-Blade  Flow  Method 

The  blade-through  flow  is  first  obtained  by,  e.g.,  Streamline  Curvature  Method 
(SCM).  Once  the  stream  siuface  is  found,  it  is  mapped  to  a  two-dimensional  plane 
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so  that  the  blades  cut  through  by  the  stream  surface  become  a  row  of  blades,  i.e., 
cascade  on  a  plane.  On  this  cascade  configuration,  the  blade-to-blade  flow  will  be 
solved.  Difficulty  in  doing  this  lies  in  the  fact  that  the  governing  equation  is  not  a 
Laplace  eqiiation  any  more  on  this  two-^limensional  plane,  but  a  Poisson  equation 
due  to  the  deviation  of  stream  surface  fiom  a  perfect  cylinder.  In  order  to  account 
for  such  deviation  of  stream  surface  firom  a  perfect  cylinder.  In  order  to  account  for 
such  deviation  into  the  two-dimensional  flow,  appropriate  source/sink  and  vortices 
should  be  distributed  over  the  entire  flow  field.  This,  in  t\im,  results  in  the  change 
of  blade  camber  shape.  The  design  procedure  relies  on  an  iteration  scheme. 

Method  III:  Singularity  Distribution  Method 

The  method  is  similar  to  that  used  in  design  of  conventional  propellers,  see,  e.g.,  the 
work  by  Kerwin  and  Leopold  (1964).  The  differences  in  velocities  between  the 
pressure  and  suction  sides  of  a  rotor  blade  can  be  represented  by  distributions  of 
singularities  such  as  source/sink  and  vortex.  The  strengths  of  such  singularities  are 
determined  by  satisfying  the  boundary  conditions  on  the  blade  surface  as  well  as 
those  at  infinity.  The  methodology  is  described  in  the  paper  of  Kerwin  and  Leopold 
(1964)  in  detail. 

The  disadvantage  of  the  method  lies  in  the  computational  complexity  and 
instability.  Furthermore,  this  type  of  method  is  suitable  for  design  of  devices  used 
in  the  open  field,  but  not  so  for  those  used  in  the  internal  flow  since  it  does  not  take 
advantage  of  confined  flow  configuration  available  for  the  latter  case. 
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3.2 


COMPARISON  AND  SELECTION 


Table  S-l  provides  qualitative  evaluation,  on  three  candidate  methods  described  in  the 
previous  section  over  various  hydrodynamic,  numerical  and  design  aspects.  As  seen  fi*om 
this  table,  a  combination  of  blade-through  method  with  blade-to-blade  flow  seems  to  have 
an  advantage  over  the  other  two  methods.  Particularly,  the  method  has  the  capability  of 
determining  detailed  blade  profile  shape  as  well  as  loading  and  velocity/pressure 
distribution  with  accuracy  verified  by  existing  cascade  experimental  data.  It  is  for  this 
reason  that  the  blade-through  flow  with  blade-to-blade  flow  method  has  been  selected  as  a 
basic  concept  for  developing  a  three-dimensional  piunpjet  design  method. 

Similar  methods  already  exist  for  design  of  quasi-axial  pimps  and  compressors.  However, 
those  methods  have  many  inadequate  features  in  their  design  procedure.  Furthermore,  it 
I  •  is  assumed  in  these  design  methods  that  the  incoming  flow  is  more  or  less  uniform,  unlike 

the  pimpjet  where  the  rotor  should  be  designed  for  highly  retarded  velocity  distribution 
due  to  viscous  boundary  layer  on  the  hull.  The  following  section  describes  the  blade- 
through  flow  (BT)  with  blade-to-blade  flow  (BTB)  method  with  various  aspects  of 
modifications  and  improvement  necessary  for  developing  the  pumpjet  design  method. 


TABLE  3-1 .  QUALITATIVE  COMPARISONS  FOR  THE  CANDIDATE 
METHODS  AS  A  THREE-DIMENSIONAL  PUMPJET 
DESIGN  METHOD 


METHOD 


FEATURE 


METHOD  I 
KATSANiS 
METHOD 


METHOD  II 
BLADE-THROUGH/ 
BLADE-TO-BLADE 
FLOW 


METHOD  III 
SINGULARITY 
DISTRIBUTION 
METHOD 


THREE-DIMENSIONALITY 


DETERMINATION  OF  DETAILED 
BLADE  PROFILE  SHAPE 


ACCURACY  IN  SECTIONAL 
BLADE  LOADING 


CALCULATION  OF  PRESSURB 
VELOCITY  DISTRIBUTION 


SIMPLICITY  IN  NUMERICAL 
COMPUTATIONS 


DESIGN  CAPABILITY 


OVERALL  EVALUATION 


0  s  EXCELLENT 
A  s  GOOD 
X  =  POOR 
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4.0 


METHOD 


Design  of  a  pumpjet  for  an  underwater  vehicle  requires  preliminary  information  on  the 
vehicle  including  its  geometry  and  hydrodynamic  drag  coefficient.  Furthermore,  most 
importantly,  the  velocity  profile  at  an  upstream  reference  section  should  be  obtained  either 
analytically  or  experimentally.  Any  error  in  the  velocity  profile  would  result  in  a  pumpjet 
of  lower  efficiency  or  failure  of  the  pumpjet  meeting  the  specifications  at  the  design  point. 
In  the  present  study,  it  is  assumed  that  this  velocity  profile  is  given  at  a  goal  speed  or  at 
the  corresponding  Reynolds  number. 

The  first  step  for  design  of  a  pumpjet  (see  Figure  4-1)  is  to  determine  the  shroud  intake 
diameter.  From  the  viewpoint  of  cavitation,  the  maximum  and  TnininuiTn  shroud  diameter 
to  prevent  cavitation  must  exist.  If  it  is  too  large,  the  rotor  blade  tip  speed  becomes  too 
high  so  that  cavitation  occurs.  On  the  other  hand,  if  it  is  too  small,  the  rotation  speed  must 
be  increased  to  generate  the  reqiiired  head  so  that  the  chance  of  cavitation  inception  also 
increases.  Another  aspect  of  determining  the  shroud  diameter  stems  fi*om  consideration  of 
the  overall  propulsive  efficiency.  The  equation  for  global  momentum  balance  should  be  able 
to  determine  an  efficiency-optimum  shroud  diameter  for  the  given  velocity  profile  and 
vehicle  drag.  The  detailed  mathematical  formulation  and  sample  calculations  will  be  given 
in  Section  4.1. 

Once  the  shroud  diameter  is  determined,  the  streamline  will  be  calculated  by  using  the 
streamline  ciirvatiire  method  (SCM).  In  this  calculation,  the  loading  distribution  on  the 
rotor  and  blade  thickness  must  be  assumed  in  advance.  One  of  the  major  concerns  in  using 
the  existing  streamline  curvatiue  method  lies  in  the  fact  that  SCM  may  only  be  used  for 
relatively  uniform  incoming  flow,  but  may  generate  a  substantial  error  for  a  thick  wake 
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FIGURE  4-1 .  FLOW  CHART  OF  THE  SELECTED  PUMPJET 
DESIGN  METHOD 
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flow,  i.e.,  highly  retarded  flow  due  to  the  viscous  boundary  layer  on  the  vehicle  hull. 
Detailed  mathematical  formulation  and  sample  calculations  are  presented  in  Section  4.2. 
Also  included  are  disoissions  regarding  the  problems  of  application  of  conventional  SCM  to 
the  thick  wake  flow. 

The  next  step  of  the  design  method  is  to  map  the  stream  tube  or  surface  calculated  by  SCM 
onto  a  plane  so  that  the  rotor  blades  are  mapped  into  cascade  configuration.  If  the  stream 
surface  is  totally  cylindrical  shape,  the  governing  equation  to  be  used  for  the  cascade 
analysis  will  be  a  Laplace  equation.  Unfortunately,  the  stream  surface  is  of  three- 
dimensional  cone  shape  in  general  for  the  tail  cone  section  of  the  underwater  vehicle.  The 
field  governing  equation  now  becomes  a  Poisson  equation,  for  which  the  results  of  powerfiU. 
potential  theory  analysis  are  no  more  applicable.  A  method  of  correcting  the  effect  of  the 
Poisson  equation  on  the  potential  theory  results  is  introduced  to  modify  the  blade  profile 
H  •  shape  obtained  in  the  potential  theory.  In  choosing  the  blade  profile  shape,  the 

experimental  data  are  used  to  ensure  that  there  is  no  chance  of  flow  separation  due  to 
overloading  on  the  blade.  Furthermore,  based  on  the  calculated  velocity  along  the  blade, 
the  cavitation  inception  is  checked.  If  there  exists  a  chance  of  either  flow  separation  or 
cavitation,  the  loading  distribution  firom  hub  to  tip  should  be  changed.  If  such  a  change  is 
made,  and/or  thickness  of  blades  is  changed,  the  streamline  curvature  method  should  be 
used  again  to  determine  the  new  location  of  streamline  or  stream  surface.  This  iterative 
Section  4.3  describes  the  technical  approach  to  be  used  for  the  blade-to-blade  flow  analysis. 


1 


4.1  PUMPJET  GLOBAL  HYDRODYNAMICS 


It  is  a  well-known  fact  that  the  pumpjet  utilizes  the  tailcone  low-energy,  boundary  layer 
flow  in  order  to  achieve  its  high  efficien<7.  It  means  that  the  optimum*  pumpjet  design 
depends  entirely  upon  the  incoming  flow  velocity  profile. 

Figure  4-2  shows  a  schematic  diagram  of  an  underwater  vehicle  tail  cone/pumpjet  flow. 

and  in  Figure  4-2  are  considered  to  be  the  upstream  and  downstream  reference 
stations,  respectively,  where  it  is  assumed  that  the  freestream  static  pressure  exists, 
whereas  and  are  the  rotor  inlet  and  exit  stations. 

4.1.1  Calculation  of  Thrust  Force 


The  thrust  force,  T,  due  to  the  pumpjet  work  can  be  determined  by  applying  the 
momentum  equation  to  the  control  volume  enclosed  by  stations  (^,  and  the  stagnation 
streamline  (see  Figure  4-2). 


/fT?  .  • 

dm  •  V7  (r)cos07  -  j  dm  •  (rjcose^ 

rH7  fHi 

where  dm^  =  p2;aV7  (r)  00587  dr 
dm^  =  p2xrVi  (r)cos0.,dr 


(4.1.1-1) 


(4.1.1-2) 


Vi  (r),V7(r) 
01,  07 


meridional  flow  velocities  at  and  (^,  respectively, 
meridional  flow  angles  at  and  (^,  respectively. 


*Note:  By  "optimum”  pumpjet  design  it  means  that  of  proving  the  maximum  propulsion 
efficiency. 
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FIGURE  4-2.  SCHEMATIC  DIAGRAM  OF  PUMPJET  FLOW 
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where  the  mass  conservation  equation  below  has  been  used; 

Cjn  =  ^ml  ”  ^m7 


(4.1.1-7) 


s  J  p2wV^  (r)cosei  dr 
=  J  p2wV7  (r)  COS07  dr 
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,  0  I 

prn/fB  V^(r) 
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rni/rs 

^7  _  9  I 

/■riV/fB  V7(r) 
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k? 

8 

> 

Q. 

fH7/rB 

•  —  cose,  d(— 
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Let’s  define 

s  s  m 

AVa  V7COS07  COS0i 

'vZ  "  ^  ~vZ~ 

then  we  obtain,  from  (4.1. 1-6) 


2  .  ^  .  Cm 


—  00307  •  d(-^ 

tb  ^  re. 


(4.1.1-8) 


(4.1. 1-9) 


(4.1.1-10) 


(4.1.1-11) 


(4.1.1-12) 


(4.1.1-13) 


Note  that 


Cm  =  2 


(4.1.1-14) 


where 


•'u,/r«  re'  1  lr„ 


^Hl/fB  °° 

rHi/^B  VB 


— i  COSOi  dF^ 


(4.1.1-15) 


The  h/draiilic  head  of  the  pump  is  given 

r'Ta/ra^ 
r:  J  .  V 


rra/ra  ^  _U_  _r_  1 


Hr 

v!/2g 


fHa/fB  COS63  VB 

l^rra/ra  ^  ^  1  M 

rna/fB  '‘B  COSBa  ^b) 


(4.1.2-1) 


where  V^Cr),  Vq^M  =  meridional  and  circumferential  velocities  at  station  (^,  respectively. 
With  the  hydraulic  efficiency  r|i{  introduced,  the  actual  head  generated  in  the  fluid  is  H, 

H  =  tIr  .  Hr  (4.1.2-2) 


where  H  can  be  defined 


where 


VJ2g 


v« 


j  j 

fV7(r)) 

3 

1  —  COS87  d 

f  ^  \ 
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1  ~  / 
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y  '■T7/I'B  I 

fVyfr)’ 

1  —  COS07  d| 

f  ^  \ 

1  re  M 

kB/ 

(4.1.2-3) 


(4.1.2-4) 
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(4.1.2-5) 
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Vi(r)  /r 
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fTi/re/^^ 
fHI^^B  V® 


cose,  d|— 


Kj  =  head  loss  coefficient  between  station  (T)  and  (7)  (but  mostly  inlet  loss 
and  see  Appendix  for  determining  K]^}. 


Since 


4V„  V7  V, 


(4. 1.2-6) 


and  AVnj  can  be  approximated  as  AV^  r  V7  -  Vj,  Eqn.  (4. 1.2-3)  becomes 
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(4.1.2-7) 


From  Eqns.  (4.1.1-12)  and  (4.1.2-7), 


I 


^  ^  (cose,  -  cose^) 

w  00  *  oa 


COS6-: 


(4. 1.2-8) 


4.1.3  Power  Calculation 


The  power  to  be  used  on  the  pumpjet  rotor  shaft  can  be  calculated  by  integrating  the 
product  of  the  local  head  and  the  local  mass  flow  rate  over  the  entire  duct  flow, 
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=  J 


pgAQH  . 


or  in  terms  of  the  power  coefficient 


Cp  = 


p  J  pgAQH 

1  3  *  1  3  2 


■fT3  Vfla  •  U  1 

— -  •  V3(r)2jtr  — dr 

rH3  9  00803 

i  3  i 


^rra/rB  /V3(r)\  _r_  1 

1^“/  I  ®®®63  vB; 


(4.1.3-1) 


From  (4.1,2-!), 


Hr  r^T3/rB  V3 
Cp  =  2  — - J  — 


rra/re  V3  r  1  Jr 


v'/2g 


^0893  yB^ 


v'/2g 


Hr  wj2g 


(4.1.3-2) 


Therefore,  the  propiilsive  efficiency  t]-  can  be  calculated  firom  the  following  definition: 


_  Ct 

■  c; 


(4.1.3-3) 
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Now  all  tools  for  calculating  the  propulsive  efficiency  Hp  with  Vj  (r)  given  are  provided. 
The  principal  equations  to  be  used  will  be  Eqns.  (4.1.1-13),  (4.1.2-6),  (4. 1.2-8),  (4. 1.3-2),  and 
(4.1.3-3).  A  flow  chart  describing  the  calculation  procedure  is  given  in  Figure  4-3. 

Sample  velocity  profiles,,  V^fr)  and  V2(r),  are  shown  in  Figures  4-4  and  4-5.  The  flow 
angles,  6i,  62*  aiid  67  can  be  obtained  firom  the  drawings  of  a  typical  imderwater  vehicle  tail 
cone  profile.  The  head  loss  coefficient,  can  be  calculated  fiom  the  formula  given  in 
Appendix  A  with  the  velocity  distributions  and  pressure  distributions  both  at  stations  (T 
and  (^,  which  are  also  given  in  Figures  4-4  and  4-5. 

Figures  4-6  to  4-7  show  the  restilts  of  calculations  made  for  various  parameters,  including 
the  shroud  opening  diameter,  r^/rg,  the  exit  jet  flow  angle  67,  and  flow  velocity 
amplification  factor.  The  design  values  of  r^^  and  flow  amplification  factor  are  known, 
i.e.. 

Flow  Amplification  Factor  *  1 

but  that  of  67  is  not  known  except  for  the  fact  that  the  average  geometric  angle  of  the 
shroud  and  tail  cone  angle  at  exit  is  about  11°.  Thereoetically,  however,  the  jet  coming  out 
firom  the  shroud  exit  with  11°  shoxild  align  itself  in  the  direction  of  the  body  axis,  indicating 
that  67  could  be  zero.  The  present  caloilations  were  therefore  made  for  67  =  0°,  5°,  8°  and 
11°. 


CmCAN  BE  CALCULATED 
FROM  (4.1.1-14)  AND 
(4.1.1-15)  OR  (4.1.1-10) 


01,87  GIVEN,  Vi  CAN 
BE  CALCULATED  FROM 
(4.1 .1-5) 


Ki  CAN  BE  CALCULATED  FROM 
THE  FORMULA  IN  APPENDIX;  % 
CAN  BE  CALCULATED  FROM 
(4.1 .2-5) 


Hp  SHOULD  BE  GIVEN,  USUALLY 
Hp  89% 


FIGURE  4-3.  FLOW  CHART  FOR  CALCULATION  OF 
THE  PUMPJET  EFFICIENCY 
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STAGNATION 

STREAMLINE 


FIGURE  4-4.  MERIDIONAL  VELOCITY  AT  STATION 
OF  FIGURE  4-2 
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FIGURE  4-5.  MERIDIONAL  VELOCITY  DISTRIBUTIONS  AT 
STATIONS  @  AND  (3)  OF  RGURE  4-2 
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FIGURE  4-6.  CALCULATED  PROPULSIVE  EFFICIENCY  AS  FUNCTIONS  OF 
R.  /Rr  (STAGNATION  streamline  RADIUS)  with  the 
INCOMING  FLOW  VELOCITY  AMPLIFICATION  FACTOR, 


FIGURE  4-7.  THE  SAME  AS  FIGURE  4-6,  EXCEPT  FOR  0 


The  shroud  opening,  rj/rs,  was  also  varied  in  the  present  analysis  in  order  to  determine  the 
optimum  shroud  opening  radius  in  terms  of  efficiency.  Also  changed  was  the  incoming  flow 
velocity  amplitude  to  investigate  a  possibility  of  pumpjet  efficiency  improvement  in 
combination  with  the  tail  cone  flow  pattern  change. 

The  pump  hydraulic  efficiency  t|r  for  this  type  of  pump,  used  in  the  analysis,  is  about  89°, 
which  is  the  measured  value  by  many  pump  makers. 

Figures  4-6  to  4-8  show  the  calculated  propulsive  efficiencies  as  a  function  of  the  shroud 
opening  rj/rg  with  the  flow  amplification  factor  as  a  parameter  for  87  =  0°,  5°  and  11°, 
respectively.  As  can  be  seen  firom  these  figures,  the  efficiency  curve  has  the  maximum 
value  at  an  rj/rg  value  specific  for  the  conditions  used. 

Figure  4-6  shows  that  the  efficiency  at  the  design  condition  should  be  88.4%  when  87  =  0°  is 
assixmed.  The  design  shroud  opening,  ri/rg  =  .93,  is  slightly  on  the  smaller  side  than  that 
for  the  maximum  efficiency.  The  maximum  efficiency  of  88.8%  can  be  obtained  at  a  slightly 
larger  shroud  radius,  i.e.,  r^/rs  =  .93,  is  slightly  on  the  smaller  side  than  that  for  the 
maximum  efficiency.  The  maximum  efficiency  of  88.8%  can  be  obtained  at  a  slightly  larger 
shroud  radius,  i.e.,  r^/rg  a  .95.  Also  seen  from  Figure  4-6  is  the  fact  that  the  smaller  the 
incoming  flow  velocity,  the  larger  the  maximum  propulsive  efficiency.  This  indicates  that, 
if  the  incoming  velocity  amplitude  at  the  tail  cone  area  can  be  reduced  by  some  means,  the 
propulsive  efficiency  of  the  pumpjet  is  substantially  increased. 

It  should  also  be  remembered  that  the  actual  efficiency  achieved  is  76.9%,  much  lower  than 
any  of  the  values  calculated  here. 


As  07  increases,  the  efficiency  curves  shift  to  the  lower  efficiency  side,  see  Figures  4-6  to  4- 
8.  This  is  natxirally  expected  since  the  jet  thrusting  force  is  not  effectively  utilized  as  67 
increases. 

It  may  also  be  coincidental,  as  seen  in  Figure  4-8,  that  if  67  =  11°  is  used  as  obtained  from 
the  pumpjet  exit  geometry,  the  current  shroud  opening,  ri/rg  =  .93,  is  the  optimum 
selection  for  providing  the  maximum  efficiency,  82.9%,  smaller  than  that  of  the  original 
design.  It  should  be  pointed  out  that  if  67  =  11°  is  the  true  exit  jet  flow  angle,  an  increase 
in  the  shroud  radius  for  alleviating  the  flow  separation  problem  may  cost  a  substantial 
efficiency  loss  (see  Figure  4-8).  On  the  other  hand,  if  ^7  =  0°  is  the  true  value,  a  moderate 
increase  (e.g.,  2%)  in  the  shroud  radius  will  increase  the  efficiency  in  addition  to  the 
efficiency  gained  due  to  the  suppression  of  the  flow  separation.  However,  again  the  penalty 
exists  when  the  amount  of  shroud  radius  increase  exceeds  more  than  four  percent. 

Figure  4-9  summarizes  the  present  calculations  in  terms  of  the  maximum  propulsive 
efficiency  with  67  and  the  flow  amplification  factor  as  parameters.  It  is  shown  that  a 
substantisd  efficiency  improvement  may  be  achieved  by: 

1)  reducing  the  incoming  flow  velocity  amplitude  by  modifying  the  tail  cone  profile 
shape  and  thus  changing  the  boundary  layer  flow, 

2)  choosing  the  optimum  shroud  opening  radius  depending  on  the  flow  conditions  (see 
also  Figures  4-6  to  4-8), 

3)  redirecting  the  jet  flow  at  the  shroud  exit  as  close  to  the  body  axis  as  possible,  if  the 
jet  flow  of  the  current  design  is  not. 


FIGURE  4-9.  MAXIMUM  PROPULSIVE  EFFICIENCY  AS  A  FUNCTION 
OF  THE  INCOMING  FLOW  VELOCITY  AMPLIFICATION 
FACTOR  WRH  6,  AS  A  PARAMETER 


4.2  BLADE-THROUGH  FLOW  ANALYSIS  -  STREAMLINE  CURVATURE  METHOD 
(SCM)  . 

4.2.1  Mathematical  Formulation 

From  the  definition  of  entropy,  S,  in  the  second  law  of  thermodynamics,  the  following 
relationship  is  obtained  for  a  reversible  transformation,  i.e.. 


TVS  =  VQ 


(4.2.1-1) 


where  T  is  the  temperature  and  VQ  is  the  amount  of  heat  the  system  under  consideration 
receives.  On  the  other  hand,  the  first  law  of  thermodynamics  says 

VE  =  VQ  +  VW  (4.2.1-2) 

where  E  is  the  internal  energy  and  W  is  the  work  performed  on  the  fluid.  Since  VW  = 
-pVv,  (4.2. 1-2)  becomes 


VE  =  VQ  -  pVv  » 
=  VQ  -  pV  i 

\P/ 


(4.2.1-3) 


where  v  is  the  specific  volume  of  fluid  and,  in  terms  of  fluid  density,  p,  v  =  1/p.  The 
definition  of  enthalpy,  H,  is  given  by 


H  =  1u^+E+E  +  v^ 
^  P 


(4.2.1-4) 


where  u  is  the  amplitude  of  low  velocity  and  \j/  is  the  potential  energy.  Gradient  of  H 
yields 
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VH  =  +  vj  +  VE  +  -  Vp  +  P^|“| 

From  the  above  equation  and  Eqn.  (4.2. 1-3), 


VH  =  TVS  +  V  fc.  J  +  i  Vp 

12  /  p 


The  steady-state  momentum  theorem  gives 


pii*Vji  s  -Vp-pVy 


(4.2.1-5) 


(4.2.1-6) 


where  an  assumption  has  been  made  that  -Vy  =  £,  where  E  is  an  external  force.  By  using 
a  vector  identity,  u  X  (V  X  u)  =  1/2  V  u2-u  •  Vji,  Eqn.  (4.2. 1-6)  is  now  written 


l/x  (vxu)  =  ^  Vu^  +  V  y  +  i  Vp 
2  P 


or  u  X  2jq  =  v|-!^  +  vj  +  1  Vp 


(4.2.1-7) 


where  a  =  V  x  u.  Substituting  Eqn.  (4.2.1-5)  into  (4.2.1-7)  gives 


U  X  2fii  =  VH  -  TVS 


(4.2. 1-8) 


a  relation  first  found  by  Crocco  (1937),  which  will  be  used  to  derive  the  formxila  used  for 
SCM  hereafter. 


By  using  the  cyhndrical  coordinate  system  (r,  9,  z),  the  velocity  components  of  u  are  defined 
by 
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L 


(• 


M  =  (Ur.  U0,  Uz) 

Thus,  the  components  of  vortex  term  are  written 

^1 

az 


(4.2.1.9) 


(a) 

2si,  =  (V  X  u)r  = 

1 

'auz 

r 

,ae 

(b) 

2fflo  =  (v  X  u)o  = 

^  - 

dz 

1_ 

dru, 

(c) 

2fflz  =  (V  X  ujj  = 

r 

dr 

e  ^ 

36/ 

By  introducing  a  direction  m,  defined  by,  (see  also  Fig.  4-10) 

(a)  dm  :  dr  :  dz  =  Urn  :  Ur  :  u^ 

/K\  2  2  2 

(b)  u^  »  Ur  +  Uz 


(4.2.1-10) 


(c)  tan  (|)  =1  Ur  /  Uz 

(d)  Ur  =  Urn  Sjn<|> 

(e)  Uz  -  u,ri  cos<|>  , 


(4.2.1-11) 


it  becomes  evident  that  the  m-direction  is  the  "meridional  direction”  or  on  the  projection  of 
streamline  in  the  r-z  plane.  The  directional  derivative  with  respect  to  m  then  becomes 


(a)  Um  ^  =  Ur  i-  +  Uz  ^ 

dm  dr  dz 


dm 


dr 


(b) 


dz  d 


d 

-  'f 

dm  dr  dm  dz 


=  sin^  —  +  cos<t>  — 

dr  dz 


(4.2.1-12) 


where  (4.2.1-11)  has  been  used. 
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- 1 


Fxirthermore,  the  0-component  of  the  Crocco  equation  (4.2. 1-8)  gives 


dUz 

drue 

drue 

r 

de 

dz  j 

r 

dr 

de  1 

ifiH  - 

’’  \ae  aej 


Under  the  assiunption  of  axisymmetricity, 


de 


(4.2.1-13) 


so  that  Eqn.  (4.2.1-13)  becomes 


Uf 


+  U2 


or 


3ru. 


+  u, 


dz 


■m 


3^9 

dm 


Using  (4.2.1-llb), 


3Um  _ 
d0  dm 


(4.2.1-14) 


It  is  now  ready  to  perform  a  coordinate  transform  of  Eqn.  (4.2.1-10)  by  using  Eqns.  (4.2.1 
11),  (4.2.1-12)  and  (4.2.1-14).  The  resxilt  is 


(a)  =  (Vxu)r 


tarvj) 

r 


dm 


d<(> 

Un,  ooat>  ^ 


de 
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(4.2.1-17) 

where  the  following  relations 


de 


^9  -  .  Q 

9m  90 

have  been  applied. 


(c)  2fii,  =  1 
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The  right-hand  side  of  Eqn.  (4.2. 1-8)  becomes  VH  under  the  assumption  of  adiabatic 
process  for  the  fluid  to  go  through  the  pump  channel. 


Now,  it  is  ready  to  write  the  r-component  of  Eqn.  (4.2. 1-8)  for  the  meridional  flow  velocity 
and  the  final  form  is  shown  after  some  rearrangements: 


f  sin*  3u„  ^  cos*^  2  ,  2 

3H  U0  drue 

dr 

^  3m  ''m  1 

[dr  "  ~  dr  j 

(4.2.1-18) 


Eqn.  (4.2.1-18)  can  be  written  as 


dr 


+ 


P(r)uJ, 


T(r) 


where 


P(r) 


T(r) 


2 


SifVjt  3Urn  COS0 

3m  '’m 


(4.2.1-19) 


(4.2.1-20) 


In  Eqns.  (4.2.1-18)  -  (4.2.1-20)  the  first  term  of  P(r),  i.e.,  sin<|)/Uni  •  3mn,/9m,  will  provide 
some  difficulty  in  numerical  computations  since  it  is  related  to  the  derivatives  with  respect 
to  "m”.  The  basic  philosophy  of  the  streamline  curvature  method  is  to  express  the 
meridional  velocity  in  terms  of  “i^  and  “r-derivatives"  so  that  Un,  can  be  solved  in  the 
direction  of  r  only.  This  feature  will  be  of  advantage  in  numericed  computations  since  the 
derivatives  with  respect  to  “m”  are  not  needed  and  thiis  the  m-directional  control  points  do 
not  have  to  be  taken  in  fine  increments.  Fortunately,  sin<t>/u„  •  dun,/dm  can  be  expressed  in 
terms  of  r  by  using  the  continuity  equation. 
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Again,  applying  the  axisynunetric  assumption  and  Eqns.  (4.2.1*11),  (4.2.1*12)  and  (4.2.1* 
16),  the  following  relation  is  obtained 


Sirvi)  ,  ^ 
3m 


3it) 

+  tarvjt  •  — 
3r 


(4.2.1-21) 


The  basic  equation  for  the  streamline  curvatiire  method,  i.e.,  Eqn.  (4.2.1*18),  is  expressed 
in  terms  of  “r”  except  for  the  radius  of  curvature,  r^,  so  that  it  can  be  readily  solved 
numerically.  The  only  problem  remaining  is  that  Uni(^)  cannot  be  uniquely  determined. 
This  problem  can  be  resolved  by  applying  the  mass  conservation  equation 


2k  J  Kb  •  pr  Um(r)  ooatiq  dr  -  (a 


(4.2.1*22) 


where  is  the  blockage  factor  due  to  the  blade  displacement  thickness  as  well  as  that  of 
the  boimdary  layer,  and  <t)q  is  the  angle  between  the  line  of  integration  (called  “q-line” 
hereafter)  and  the  line  normal  to  the  streamline.  With  this,  the  mathematical  formulation 
for  the  streamline  ciuvature  method  (SCM)  is  completed.  In  what  follows,  the  numerical 
solution  method  for  SCM  will  be  described  in  detail. 


4.2.2  Solution  Method 


Since  Eqns.  (4.2.1*18)  and  (4.2.1*22)  are  highly  nonlinear  for  Um,  only  an  iterative 
procediire  depending  on  numerical  analysis  is  a  possible  solution  method.  First  of  all,  it  is 
assximed  that  the  distribution  of  upstream  flow  velocity  is  known  as  function  of  r.  Figure 
4*11  shows  a  sample  flow  configuration  on  an  underwater  vehicle  tail  cone  where  the 
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upstream  location  in  this  case  is  identified  by  station  1  (I  =  1).  The  upstream  flow  velocity 
can  either  be  uniform  or  nonuniform*.  Station  1  is  then  divided  into  a  finite  number  of 
control  points  including  the  hub  and  the  inside  wall  of  the  shroud.  In  Figure  4-11,  a  total  of 
6  control  points  (J  =  6)  are  used.  By  using  the  mass  conservation  equation  (.4.2. 1*22),  the 
local  mass  flow  rate  (gj^j+i)  between  each  two  adjacent  control  points  J  and  J+1  is 
calcvdated.  The  total  mass  flow  rate,  Gj,  is  just  the  summation  of  local  flow  rates. 


X  91.J.J+1 


(4.2.2-1) 


where 


91.J.J+ 


Kb 


•  pru^^  (r)  cos<t»qdr 


(4.2.2-2) 


For  Stations  I  =  2,3,4...,  the  initial  control  points  and  initial  u„  velocity  profile  are  also 
needed  for  the  iteration  procedure.  For  the  case  of  handling  a  uniform  upstream  flow 
velocity,  the  selection  of  control  points,  J  =  1  -  6,  and  determination  of  initial  flow  velocity 
may  be  done  in  the  same  manner  as  that  for  the  first  Station,  1  =  1,  since  the  constant 
velocity  distribution  can  be  assumed.  However,  the  case  of  nonuniform  flow  velocity 
distribution  will  require  a  little  care  for  selection  of  control  points  and  determination  of 
initial  flow  velocity  distribution.  Among  many  possible  ways,  it  has  been  decided  herein 
that  the  velocity  distribution  is  assumed  to  have  a  similarity  nature  as  that  of  the 
upstream  at  I  =  1,  i.e.. 


•  Note:  However,  the  upstream  flow,  which  is  severely  retarded  or  highly  nonuniform  due 
to,  e.g.,  the  viscous  effect,  may  present  problems  of  accuracy,  which  will  be 
discussed  in  Section  4.2.3. 
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I 

I 

I 

I 

i 

I 


Umi  W  =  k,  Umi  (r) 


r  =  rm  +  7^—^  * 

'^Sl  -^H1 


I  I  +  2,3..<> 


(4.2.2-3) 


where 
rsi.  rsi 
rni.  ^Hl 
ki 


radius  of  shroud  internal  wall  at  Station  1  and  I  2),  respectively 

radius  of  huh  at  Station  1  and  I  2),  respectively 

an  arhitrary  constant,  dependent  of  Station  I,  to  be  determined  later. 


I  •• 

I 


An  arbitrary  constant  kj  is  used  to  adjust  the  total  flow  rate  at  Station  1^2  becomes 
when  Unjj(r)  is  substituted  into  Eqn.  (4.2.1-22).  Once  kj  is  properly  determined,  the  control 
points  J  =  2,3...  can  be  determined  by  using  Eqn.  (4.2.2-2).  In  order  to  carry  out  the  above 
computations,  (j)  shoxild  be  known  in  advance.  If  the  control  points  at  every  control  station 
are  known,  <|>  can  be  calculated  by  connecting  these  points  for  each  streamline  by  using, 
e.g.,  cubic  spline  method.  However,  at  the  first  iteratica,  even  these  points  are  not  yet 
known.  Therefore,  (j)  should  be  determined  by  guess.  One  possible  way  is  to  interpolate 
linearly  <j)  for  2  ^  J  ^  5  fii^m  ([>  at  J  =  1  and  0  at  J  =  6,  i.e.,  the  hub  wall  angle  and  shroud 
internal  wall  angle,  respectively. 


It  is  now  ready  to  calculate  a  new  set  of  u^’s  or  dujjj/dr  at  I  =  2,3,4...  by  using  Eqn.  (4.2.1- 
18).  Since  actual  calculations  are  made  on  du„/dr,  an  integration  constant  should  be 
determined  to  uniquely  determine  Ug,  itself.  This  constant  can  be  readily  determined  by 
applying  the  mass  conservation  equation  (4.2.1-22),  the  control  points  (J  =  2,3...)  at  each  I  ^ 
2  should  be  shifted  according  to  Eqn.  (4.2.2-2).  Integral  limits,  rjs,  which  determine  the 
control  points  on  the  q-line  for  J  =  2,3...  are  determined  one  by  one  starting  fi*om  the  hub  in 
such  a  way  that  the  mass  flow  rate  gi^,j+i  remains  the  same  in  each  stream  sheet  as  that 
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for  I  =  1.  This  iteration  process  must  be  repeated  until  convergence  for  u^j’s  as  well  as  the 
location  of  control  points  (or  streamlines)  is  obtained. 

4.2.3  Potential  Problems  of  SCM  for  Highly  Nnminifnrm  Vplncity  Profile  Due  to  Viscositv 

The  present  streamline  curvature  method  (SCM)  to  be  used  for  determining  the  meridional 
flow  streamlines  is  based  on  the  momentum  equation  and  mass  conservation  equation  with 
viscoiis  effects  totally  ignored.  Therefore,  if  the  upstream  flow  is  the  one  fully  retarded  due 
to  the  viscous  effect,  i.e.,  boundary  layer  flow,  so  that  the  velocity  distribution  is  highly 
nonlinear,  the  application  of  the  present  SCM  may  create  substantial  inaccuracy  in 
determining  the  location  and  velocity  of  streamlines.  This  point  is  clearly  understood  by 
investigating  the  momentum  equation  (4.2.1*19);  P(r)  and  T(r)  are  only  dependent  upon  r 
except  for  r^  which  is  a  function  of  curvature  of  streamline.  It  means  that  u^,  is  a  weak 
function  of  the  axial-direction  coordinate  so  that  at  a  certain  station  is  almost  entirely 
determined  by  the  inner  and  outer  wall  curvature.  No  matter  how  strongly  the  incoming 
flow  velocity  is  retarded,  the  flow  velocity  will  become  more  or  less  uniform  before  the  flow 
travels  too  far  downstream  because  the  curvature  effect  (r^i)  cannot  last  too  long. 

The  above  discussions  seem  to  suggest  that  the  development  of  streamline  curvatxire 
method  (SCM)  with  viscous  effect  incorporated  may  be  in  order,  particularly  for  handling 
the  highly  viscous  flow  near  the  tail  cone  area  of  xmderwater  vehicle. 

The  momentum  equation  for  such  a  flow  should  be  of  the  form 

U  X  2ffl  =  VH  -  TVS  -  uV2ii  (4.2.3-1) 

instead  of  Eqn.  (4.2. 1-8). 
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One  additional  term  will  make  the  problem  extremely  complex  and  this  problem  was 
handled  in  the  FY-86  GHR  program. 


4.2.4  Numerical  Results 


The  streamline  curvature  method  described  in  Sections  4.2.1  and  4.2.2  was  used  to 
calculate  the  streamlines  for  a  typical  underwater  vehicle  tail  cone  area  with  a  shroud.  In 
the  present  case  the  upstream  flow  velocity  was  assumed  to  be  uniform.  A  total  of  14  q- 
lines  (I  =  14)  were  used  with  5  control  points  (J  =  5)  at  each  q-line,  see  Figure  4-12.  The 
solid  lines  are  the  initial  guess  for  the  streamlines  whereas  the  dashed  lines  are  the 
converged  solution  for  the  final  streamlines.  It  is  seen  firom  this  figure  that  these  two  sets 
of  lines  match  well  to  each  other  except  for  the  area  behind  the  middle  chord  of  rotor.  It 
means  that  the  initial  guess  used  here  was  very  accurate  until  the  flow  passes  the  rotor 
and  stator.  Due  to  the  initial  accurate  guess  for  streamlines,  computer  time  was  minimal. 


4.3  BLADE-TO-BLADE  FLOW 


4.3.1  Transformation 


Under  the  assumption  that  an  axisymmetric  stream  stirface  exists  in  a  rotating  machine, 
firom  the  conservation  equation  of  circidation,  i.e.,  V  x  +  2iq  =  12,  the  following  relation 
is  obtained  for  the  relative  flow. 


=  ZariL 

36  dm  3m 


(4.3-1) 


where  w^j  and  wq  are  relative  flow  velocities  in  the  direction  of  m  and  9,  see  Figure  4-13. 
The  continiiity  equation  for  the  same  stream  surface  is  also  written 
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where  b  is  the  thickness  of  stream  surface. 

Then,  a  stream  function  y  can  be  defined  by 

1  ^  1  3w 

'^e  =  —  — . 

bp  3m  bp  r30 


(4.3-2) 


(4.3-3) 


Substitution  of  Wq  and  in  Eqn.  (4.3-3)  into  Eqn.  (4.3-1)  yields 


2  2 

ix  +  iv  +  fl  ^  -  J.  *-1  =  .2bp«, 


r^ae"  3m"  r  »  3m/  3m 


(4.3-4) 


where  X  is  the  angle  of  the  line  tangent  to  the  stream  sxirface  at  the  point  of  interest  made 
with  the  axis  of  rotation,  see  Figure  4-13. 


This  three-dimensional  axisymmetric  stream  surface  can  be  mapped  onto  a  two 
dimensional  plane,  (X,  Y),  see  Figure  4-14,  by  the  following  mapping  functions 


dX  _  Tq  dY  _ 
dm  r  ’  de  ' 


(4.3-5) 


where  r^  is  an  arbitrary  constant  which  is  used  for  the  piurpose  of  scaling  between  the 
physical  coordinate  space  and  mapped  plane  (X,  Y).  The  governing  equation  (4.3-4)  can 
now  be  written  in  the  (X,  Y)  coordinate  system  by  using  Eqn.  (4.3-5) 
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c* 


2 

V  y 


sinX 


+  _L  I^M  ^  +  ^(fap) 

bp  ^  ax  ax  av  avj 


Also,  the  relative  velocities  in  the  X-  and  Y-directions  are  given 


(4.3-6) 


(a)  wx 


JL  ^ 

bp  av 


(b)  Wy 


bp  ax 


(4.3-7) 


As  seen  fii^m  Eqn.  4.3-6,  the  governing  equation  for  the  (X,  Y)  plane  is  now  a  Poisson 
equation  instead  of  the  Laplace  equation,  which  exists  only  for  a  flow  on  the  perfectly 
cylindrical  stream  surface.  Therefore,  the  restilts  obtained  from  the  two-dimensional  linear 
cascade  theory  should  be  corrected  according  to  the  rig^t-hand  side  term  of  Eqn.  (4.3-6).  It 
is  readily  understood  that  these  right-hand  side  terms  are  satisfied  by  distributing  the 
following  vortices  and  sources  on  the  entire  (X,  Y)  plane 


(a)  ;  =  (v  X  )a)x,Y  =  2(0  jlj  sinX 

(b)  p  =  (v-Mf)xY  =  ^  .  (4.3-8) 

(bp)'\^x  av  av  ax/ 

By  adding  the  induced  velocities  calculated  from  ^  and  p,  the  blade  profile  shape  or 
eqiuvalently  the  camber  obtained  in  the  conventional  two-dimensional  analysis  will  be 
corrected.  It  should  be  noted  that  the  first  term  on  the  right-hand  side  of  Eqn.  (4.3-6) 
arises  from  non-zero  X,  i.e.,  the  stream  siuface  is  not  parallel  to  the  axis  of  rotation, 
whereas  the  second  group  of  terms  is  due  to  the  non-uniform  thickness  of  stream  surface  or 
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tube.  Needless  to  say,  if  X  =  0  and  bp  is  constant,  Eqn.  (4.3-6)  becomes  a  Laplace  equation 
I  and  thus  a  two-dimensional  linear  cascade  theory  bolds. 

A  method  similar  to  the  present  one  was  developed  by  Inoue  and  his  colleague  (e.g.,  the 
I  paper  by  Inoue,  et  al.  (1980)).  In  this  paper  there  exist  a  few  megor  drawbacks,  some  of 

which  could  potentially  lead  to  a  substantial  error  in  the  final  design.  First  of  all,  since 
they  use  a  two-dimensional  linearized  cascade  theory,  the  error  becomes  significant  for  high 
I  solidity  and  high  stagger  angle  area,  i.e.,  near  the  hub,  although  they  introduce 

experimental  data  in  a  later  step  of  the  analysis.  Secondly,  their  velocity  triangle  used  for 
determining  the  Incoming  flow  angle  to  the  blade  is  in  error  of  the  first  order  since  they  did 
I  not  take  into  consideration  the  effect  of  non-cylindrical  and  variable  thickness  stream 

surface.  Finally,  due  to  the  use  of  the  linearized  cascade  theory,  they  failed  to  obtain  the 
velocity  distribution  so  that  a  boundary  layer  analysis  and  cavitation  inception  analysis  are 
I  %  •  not  possible. 

4.3.2  Linearized  Cascade  Theory 

A  two-dimensional  cascade  theory  is  implemented  here  to  be  used  for  calculating  the  lift 
coefficient  for  the  three-dimensional  flow  which  will  be  discussed  in  Section  4.4.  The 
boundary  condition  (Eqn.  4.3.2-16)  has  to  be  modified,  as  will  be  discussed  in  Section  4.4, 
when  this  cascade  theory  is  applied  in  the  quasi  three-dimensional  flow. 

The  lift  coefficient  is  determined  for  any  given  cascade  geometry  which  is  specified  by  the 
solidity  (blade  chord-gap  ratio,  c/s)  and  the  stagger  angle,  X  (Figure  4-15).  Symbols  used  in 
Mellor  (1959)  were  followed;  use  Lj  and  Cx^  in  denoting  the  ideal  lift  force  and  lift 
coefficient  when  the  drag  is  zero.  Then  (see  also  Weinig,  1964) 
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(4.3.2-1) 


^  Lj  =  (s/c)pW^Ve 

and  Cl,  .  (Li*)  /  (l  pW„') 

=  2(S/C)  (AVg/Wm)  (4.3.2-2) 

where  s  is  the  blade  pitch,  c  is  the  chord  length,  p  is  the  flmd  density,  is  the  mean 
relative  velocity,  and  AVe  is  the  difiTerence  between  the  peripheral  velocity  at  the  exit  and 
that  at  the  inlet. 

Replacing  the  product  sAVe  by  the  line  integral 
streamlines  s  distance  apart  and  joined  by  two 
(Weinig,  1964) 

Cl,  .  2r/(cw„) 

•  • 

where  F  *  •  dr 

is  the  circulation  around  a  profile  CWislicenus,  1965). 

The  camber  is  assumed  to  be  sufficiently  small  so  that  the  chord  length  is  substantially 
equal  to  the  distance  measured  along  the  camber  line.  Then,  the  circulation  arotmd  a  thin 
wing  profile  is  given  by  (Abbott  and  von  Doenhoff,  1959) 


(4.3.2.3) 

(4.3.2-4) 


j>v  •  dr  on  a  closed  path  comprising  two 
lines  parallel  to  the  6-direction,  we  have 


(4.3.2-5) 


where  y  is  the  difference  in  velocity  between  the  suction  and  pressiire  surfaces,  which  is 
also  the  strength  of  the  vortex  sheet  comprising  the  blade  camber  line  (von  Karman  and 
Burgers,  1963).  Therefore,  equation  (4.3.2-3)  is  expressed  by 


-55- 


(4.3.2-6) 


Cli  =  2/'  (r/w„)  d(x/(S 

O 

The  cambered  blade  is  built  up  by  superimposing  vortices  on  the  camber  line  and  a 
distribution  of  sources  and  sinks  on  the  camber  line  to  account  for  the  profile  thickness 
effects.  The  distribution  of  source  (sink),  q,  is  (Mellor,  1959) 

q  =  Wm  dy,/dx  +  d(uy,)/dx  (4.3.2-7) 

where  the  thickness  of  blade  is  denoted  by  yt  and  the  induced  chord-wise  velocity,  u,  is 
considered  constant  along  the  y-direction  within  the  profile.  The  second  term  can  be  shown 
to  be  negligible  (Mellor,  1959)  and  so  we  have 


q/W  *  dyt/dx 

=  (t/c)ft(x/c) 

(4.3.2-8) 

where 

ft’(x)  =  aft /ax 

(4.3.2-9) 

and  the  thickness  function  f^.  is  defined  by 

y/C  =  (Vc)f,(x/c) 

(4.3.2-10) 

where  t  is  the  maximum  thickness  of  the  blade. 


The  camber  function  is  defined  by 


yc/C  =  Cbfc(x/C)  (4.3.2-11) 
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where  denotes  the  camher  distrihution  and  is  defined  by 


f* 


n 

Cb  =  2  J  (dyc/dx)  cose  d0  (4.3.2-12) 

0 

in  which 

cose  =  1  -  2  x/c  (4.3.2-13) 

A  blade  is  approached  by  a  mean  velocity  at  a  mean  angle  ocg,.  To  satisfy  the  condition 
that  the  normal  velocity  vanishes  at  the  boiindary,  the  flow  velocity,  together  with  the 
induced  velocity,  should  be  tangent  to  the  surfaces.  Neglecting  the  thickness  effect,  the 
boimdary  condition  at  becomes 

(Wn,  sin  ccm  +  Vo)  /  (Wm  COS  Om  +  Uo)  =  (dyc/dx)o 

=  Cbfc(Xo/c)  (4.3.2-14) 

where  Uq  and  Vg  denote  respectively  the  x-  and  y-components  of  the  induced  velocity  at  Xg 
on  the  0*^  blade  with  x  measured  along  the  chord  firom  the  leading  edge. 

To  find  the  lift  coefficient  by  equation  (4.3.2-6),  we  assume  that  Y^m  ^  represented 
by  a  trignometric  series  as  (Abbott  and  von  Doenhoff,  1959) 

oo 

Y/W„,  »  2Ao  (1  +  oose)/sine  +  4  An  Sin  ne  (4.3.2-15) 

n»1 

which  is  zero  at  the  trailing  edge  of  e  =  ic  so  that  the  Kutta  condition  is  satisfied.  This 
distribution  of  vortices,  together  with  the  distribution  of  sources/sinks  shown  in  equation 
(4.3.2-8),  may  be  used  to  obtain  the  componenets  of  induced  velocity,  Uq  and  Vq.  The 
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components  of  induced  velocity  are  then  substituted  into  equation  (4.3.2-14).  With  the  aid 
of  (von  Karman  and  Burgers,  1963;  Milne-Thomson,  1966) 


/ 


cos  n0/(cos  0  -  cos  0q) 


d0 


=  :c  sin  n0o/0o 
(n  =  0, 1.2,...) 


(4.3.2-16) 


the  following  equation  is  obtained: 

oo 

X  =  sina„  -  CbtcCSo)  cosa„ 

n>0 

OO 

+  Cb  5;  A„h„  -  i(CbB-T|  (4.3.2.17) 

n-0 

where  gn,  hn,  B,  and  T  are  defined  in  Mellor  (1959)  except  that  ft’(0o)  should  be  replaced  by 
§  •  ft’(0)  in  defining  T.  A„  are  the  Fourier  coeSidenta  to  be  evaluated. 

Fcr  a  cascade  of  certain  solidity,  incident  angle,  and  stagger  angle,  equation  (4.3.2-17)  is 
;ised  to  calculate  N  coefficients,  A^,  based  on  the  camber  and  thickness  at  N  locations 
along  the  chord.  This  study  follows  the  solution  method  of  Mellor  (1959)  which  greatly 
reduces  the  calculation  labor  when  a  set  of  solutions  as  functions  of  the  solidity  and  stagger 
angle  is  desired. 

Equation  (4.3.2-17)  is  multiplied  by  cos  k0o  and  integrated  from  0  to  7C  to  obtain  an 
equation  for  niunerical  integration. 

Having  the  double  Fourier  integral  fimetions  calculated,  the  cascade  coefficients.  An,  were 
computed.  Then  the  lift  coefficient  was  obtained  fiPm 
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Cli  =  SjcjAg  + 


(4.3.2-18) 


which  is  derived  by  inserting  equation  (4.3.2-15)  to  equation  (4.3.2-6). 

4.3.3  Data  Analysis 

The  NACA  65-series  experimental  data  given  by  Herrig,  et  al.  (1951)  are  used  to  do  the 
multiple  regression  analysis  in  the  present  study.  The  data  include  the  cascade  lift 
coefficient  and  the  design  angle  of  attack.  The  design  angle  of  attack  is  a  function  of 
solidity  and  blade  camber  (Figure  4-16).  The  lift  coefficient  is  a  function  of  stagger  angle, 
solidity,  blade  camber,  and  angle  of  attack.  Among  the  lift  coefficient  values,  only  those 
associated  with  the  design  angle  of  attack  are  used  in  the  data  analysis. 

Based  on  28  data  points  in  Figure  4-16,  the  fourth  order  polynomial  equation  of  the  design 
angle  of  attack,  cx^,  obtained  by  the  multiple  regression  analysis  is 

(Xd  =  -1.78681  +  0.51975  +  0.02078  a^Ct,^ 

-0.06408  oCb^  +  0.01716  Ob'*  +  7.68063 
-2.50213  o2Cb  +  0.30280  oCb^  +  0.01298  Cb^ 

-12.95580  o2  +  6.54778  oCb  -  0.30496  Cb2 

-Hi  2.87888  o  -H  2.78086  Cb  -  2.22656  (4.3-19) 

where  a  denotes  solidity  and  Cb  represents  the  camber.  Figure  4-17  shows  the  correlation 
between  the  calculated  value  fi*om  Eqn.  (4.3-19)  and  the  experimental  data.  The  mean 
residual  is  -0.00002,  and  the  standard  deviation  is  0.04,  and  the  maximum  residual  is  0.09 
degrees  which  is  smaller  than  the  error  bound  of  the  original  data. 
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CALCULATED  DESIGN  ANGL 


FIGURE  4-17.  COMPARISON  OF  DESIGN  ANGLE  OF  ATTACK 
OBTAINED  FROM  THE  MULTIPLE  REGRESSION 
ANALYSIS  AND  THOSE  OBTAINED  FROM  THE 
LABORATORY 
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Cascade  lift  coefficient  at  the  design  angle  of  attack  has  79  data  as  a  fiinction  of  stagger 
angle,  solidity,  and  camber  in  Herrig,  et  al.  (1951).  Two  data  at  the  falhng  Umb,  in  the 
figure  of  lift  coefficient  vs.  angle  of  attack,  are  removed  firom  the  sample.  A  total  of  77  data 
is  used  in  the  multiple  regression  analysis.  The  resultant  fourth  order  polynomial  equation 
is 


Cb  =  0.00000038594  _  1.66604  a*  -  2.74752  Ci** 

-0.000050739  p^o  -  4.42872  o3C|  -  0.093633  C|3p 
+0.0013187  p2o2  -  10.87314  o2C|2  -  0.0016033  C|2p2 
-0.0014369  po3  -  9.83274  oC|3  -  0.000035308  Cip3 
-0.000020018  p3  +  8.26201  +  20.91537  C|3 

+0,0040173  p2o  +  26.19466  o2Ci  +  0.33569  C,2p 
-0.11946  P<j2  +  41.23668  oC|2  +  0.0059786  C|p2 
-0.00080978  p2  -  14.15108  o2  -  45.84094  C|2 
-0.010265  po  -  47.03403  oC|  -  0.39504  C|P 
+0.015917  p  +  13.59117  a  +  36.29869  C| 

-5.23047  (4.3-20) 

The  resxilts  calculated  firom  this  equation  are  shown  as  solid  lines  in  Figures  4-18  to  4-21 
for  different  relative  flow  angle  at  the  blade  inlet.  Also  shown  in  these  figures  are  discrete 
data  at  different  conditions.  The  results  from  the  regression  analysis  fit  well  with  the  data. 


4.4  THREE-DIMENSIONAL  ANALYSIS  -  BLADE-TO-BLADE  FLOW 


This  section  illustrates  the  theory  and  procedure  to  solve  the  blade-to-blade  flow  on  each 
stream  surface  in  an  axisymmetric  three-dimensional  flow  environment. 
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FIGURE  4-18.  CAMBER  AS  A  FUNCTION  OF  CASCADE  LIFT  COEFFICIENT 
AND  SOLIDITY  OBTAINED  FROM  REGRESSION  ANALYSIS 
DATA  (SOLID  LINE)  COMPARED  WITH  ORIGINAL  DATA 
(DISCRETE  DATA  POINT),  FOR  ^  =30^ 
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CASCADE  LIFT  COEFFCENT 


FIGURE  4-1 9.  CAMBER  AS  A  FUNCTION  OF  CASCADE  LIFT  COEFFICIENT 
AND  SOUDITY  OBTAINED  FROM  REGRESSION  ANALYSIS 
DATA  (SOLID  LINE)  COMPARED  WITH  ORIGINAL  DATA 
(DISCRETE  DATA  POINT),  FOR  P  ^  =  45° 
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CASCADE  LIFT  COEFFICENT 


FIGURE  4-20.  CAMBER  AS  A  FUNCTION  OF  CASCADE  LIFT  COEFFICIENT 
AND  SOLIDITY  OBTAINED  FROM  REGRESSION  ANALYSIS 
DATA  (SOLID  LINE)  COMPARED  WITH  ORIGINAL  DATA 
(DISCRETE  DATA  POINT),  FOR  p  ^  =  60° 


964-8-28 


CASCADE  UFT  COEFFICENT 


FIGURE  4-21. 


CAMBER  AS  A  FUNCTION  OF  CASCADE  LIFT  COEFFICIENT 
AND  SOLIDITY  OBTAINED  FROM  REGRESSION  ANALYSIS 
DATA  (SOLID  LINE)  COMPARED  WITH  ORIGINAL  DATA 
(DISCRETE  DATA  POINT),  FOR  |3  ^  =  70° 
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4.4.1 


Under  the  assvunption  that  an  azisymmetric  stream  surface  exists  in  a  rotating  machine, 
firom  the  conservation  equation  of  steady  circulation,  i.e.,  V  x  h;  +  2ia  =  11,  the  following 
relation  is  obtained  for  the  relative  flow. 


^('^9)  ar  o 

-  =  2(or  —  =  2wr  sinA, 

3m  3m 


(4.4-1) 


where  Wj„  and  W0  are  relative  flow  velocities  in  the  directions  of  m  and  6,  r  measures  the 

f 

radial  distance,  and  A.  is  the  angle  of  the  line  tangent  to  the  stream  surface  at  the  point  of 
interest  made  with  the  axis  of  rotation  (Figure  4-22).  The  continuity  equation  for  the  same 
stream  surface  is  also  written 


3(bpWQ)  3(bprw^) 


where  b  is  the  thickness  of  stream  surface  and  p  is  the  fluid  density. 


Then,  a  stream  function  \|f  can  be  defined  by 


W0  -  —  -  ,  -  -  — 

bp  3m  bp  r30 


Substitution  of  wg  and  Wjq  in  Eqn.  (4.4.3)  into  Eqn.  (4.4.1)  yields 


(4.4-2) 


(4.4-3) 


2  2 

3  w  I3r_i3b^ 

r^3e^  3m^  ^  ^  ^  3m  3m 


-2bpo)  sinA 


(4.4-4) 
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4.4.2  TransfonBation 


Consider  a  Cartesian  coordinate  system  (X,  Y)  with  the  origin  0  at  the  leading  edge  of  a 
blade  and  the  X-azis  in  the  axial  direction  (Figure  4*15),  the  three-dimensional 
axisymmetric  stream  surface  given  by  Eqn.  (4.4-4)  can  be  mapped  onto  this  two- 
dimensional  X-Y  plane  by  the  following  mapping  functions 


dm  r  ’  de 


(4.4-5) 


where  r^  is  an  arbitrary  constant  which  is  used  for  the  purpose  of  scaling  between  the 
physical  coordinate  space  and  mapped  plane  (X,  Y).  By  using  Eqn.  (4.4-5),  the  governing 
equation  (4.4-4)  can  now  be  written  in  the  (X,  Y)  coordinate  system  as 


2 

V  V  = 


sinX 


+ 


1  /a(bp)  ^  3(bp)  dy 

bp  I  ax  ax  av  av 


Also,  the  relative  velocities  in  the  X-  and  Y-directions  are  given  by 


(4.4-6) 


(a)  wx 


_L 

bp  av 


(b)  Wy 


=  -1  We 

bp  ax  ^0  ® 


=  -:^(ce-u) 


(4.4-7) 


where  c^  and  Ce  are  absolute  flow  velocities  along  m  and  6  directions,  respectively. 


On  the  mapped  plane,  the  relative  flow  angles  at  the  inlet  and  exit  of  a  blade,  and  ^2* 
respectively,  are  obtained  from  the  eqmvalent  velocity  diagram  to  be 


where  the  subscripts  1  aud  2  denote  the  condition  at  the  inlet  and  exit,  respectively,  of  a 
blade,  and  wxoo  is  the  mean  value  of  wxi  and  wx2- 

It  is  important  to  note  that  the  three-dimensional  flow  configuration  is  now  transformed  to 
the  two-dimensional  X-Y  plane  where  all  the  benefits  of  the  2-D  cascade  theory  may  be 
used.  Only  the  problem  of  using  such  a  transformation  is  that  there  exits  no  2-D  CEiscade 
flow  pattern  as  shown  in  Figure  4-22.  In  order  to  make  the  2-D  cascade  theory  useful  for 
the  present  analayis,  an  equivalent  flow  diagram  should  be  generated  by  violating  the 
continuity  equation  as  shown  in  Figure  4-22,  by  chain  lines.  The  flow  stagger  angles 
and  P2  defined  by  this  eqmvalent  flow  diagram  and  used  throughout  the  2-D  cascade 
analysis. 

4.4.3  Effects  of  Streamline  Inclination  and  Meridian  Velocity  Variation 

As  seen  from  Eqn.  4.4-6,  the  governing  equation  for  the  (X,  Y)  plane  is  now  a  Poisson 
equation  instead  of  the  Laplace  equation  which  exists  only  for  a  flow  on  a  perfectly 
cylindrical  stream  siurface  with  uniform  velocity  distribution.  Therefore,  the  results 
obtained  firom  the  two-dimensional  linear  cascade  theory  should  be  corrected  according  to 
the  right-hand  side  term  of  Eqn.  (4.4-6).  It  is  readily  understood  that  these  right-hand  side 
terms  are  satisfied  by  distributing  the  following  vortices,  and  sources,  p.,  on  the  entire  (X, 
Y)  plane 
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(4.4-10) 


(a)  C 

(b) 


(V  X  JflOx.Y  = 
(V  •  mOx.y  * 


sinX’ 


1  jdOV)  ^ 


9  (bp)  ^ 

3Y  ax 


By  adding  the  induced  velocities  calculated  from  ^  and  |I,  the  blade  profile  shape  or 
equivalently  the  camber  obtained  in  the  conventional  two-dimensional  analysis  will  be 
corrected.  It  should  be  noted  that  the  first  term  on  the  right-hand  side  of  Eqn.  (4.4-6) 

f 

arises  from  non-zero  X  ,  i.e.,  the  stream  surface  is  not  parallel  to  the  axis  of  rotation, 
whereas  the  second  group  of  terms  is  due  to  the  non-uniform  thickness  of  stream  surface  or 

f 

tube  caused  by  the  variation  of  meridional  velocity.  Needless  to  say,  if  X  =0  and  bp  is 
constant,  Eqn.  (4.4-6)  becomes  a  Laplace  equation  and  thus  a  two-dimensional  linear 
cascade  theory  holds. 


A  method  similar  to  the  present  one  was  developed  by  Inoue  and  his  colleague.  In  their 
study  (e.g.,  Inoue,  et  al.,  1980),  there  exist  a  few  msgor  drawbacks,  some  of  which  could 
potentially  lead  to  a  substantial  error  in  the  final  design.  First  of  all,  since  they  use  a  two- 
dimensional  linearized  cascade  theory,  the  error  becomes  significant  for  high  solidity  and 
high  stagger  angle  area,  i.e.,  near  the  hub,  although  they  introduce  experimental  data  in  a 
later  step  of  the  analysis.  Secondly,  their  velocity  triangle  used  for  determining  the 
incoming  flow  angle  to  the  blade  is  in  error  of  the  first  order  since  they  did  not  take  into 
consideration  the  effect  of  non-cylindrical  and  variable  thickness  stream  surface.  Finally, 
due  to  the  use  of  the  linearized  cascade  theory,  they  failed  to  obtain  the  velocity 
distribution  and  therefore  a  boundary  layer  analysis  and  cavitation  inception  analysis  are 
not  possible. 
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With  these  aspects  in  mind,  effort  has  been  made  in  the  current  GHR  project  to  improve 
the  accuracy  of  the  linear  cascade  theory  as  well  as  to  avoid'  the  singular  behavior  of 
velocity  at  the  leading  edge  of  blade.  Detailed  discussions  on  the  loading  correction  and 
leading  edge  correction  have  been  presented  in  the  FY  ’85  Report. 

4.4.4  Induced  Velocities 


If  the  inclination  of  stream  surface  is  small  such  as  that  in  an  axial-flow  case,  an 
approximation  solution  of  the  velocity  induced  by  the  distributed  vortices  (Eqn.  4.4-lOa)  are 
obtained  by  a  replaced  average  vorticity  C  (Inoue,  et  al.,  1979): 


•  • 


c  cos\ 

-1-  f  ;dx 
c  cosX  J 

0 

2  2 
Up  ^2  -n 

C  COSX  r  ^ 


(4.4-11) 


where  c  is  the  chord  length,  u,,  is  the  speed  of  blade  at  the  reference  radius  r^,  and 
subscripts  1  and  2  indicate  the  inlet  and  exit,  respectively,  of  the  blade. 


Similarly,  when  the  variation  of  axial  velocity  is  small,  the  distribution  of  sources  (Eqn.  4.4- 
10b)  is  replaced  by  a  uniform  distribution; 

-  ^  WX2-WX1 

c  cosX. 

c  cosX  (4.4-12) 

where  w  denotes  the  average  relative  velocity. 
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Consider  another  Cartesian  coordinate  system  (x,  y)  with  the  origin  at  0  and  the  x-axis  in 
the  chordwise  direction  which  has  a  stagger  angle  X  relative  to  the  axial  direction  (Figure 
4-23).  The  mean  flow  velocity  along  the  chord  direction  is 


Wj^oo  =  Wxoo  cosX  +  wyoo  sinX 

=  wxoo  cosX  (1  +  tanp^  tanX) 


(4.4-13) 


The  induced  velocities,  relative  to  wxoo,  due  to  the  uniform  distribution  of  vortices  and 
sources,  ]i,  are 


where 


< 

X 

=  x| 

-  S'  Bn 
,c  c  / 
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Wxoo 
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1  +  tanX  tanp^ 

V|iX 

-  y  tan  xl 
c  c  } 

1 

Wxoo 

1  +  tanX  tanp^ 

''ny 

II 

1 

iTrt 

tanX 

Wxoo 

1  +  tanX  tanp„ 

X 

^  c  cosX 

WXoo 

1  ’’2  ~  ^ 


and 


\i  c  cosX 

WXoo 


(4.4-14) 


(4.4-15) 


(4.4-16) 


(4.4-17) 


(4.4-18) 
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are  streamline  inclination  parameter  and  axial  velocity  variation  parameter,  respectively, 


and 

^  ^  -  rg 

2  Tq  Uq 

WVoo 

=  -7^  (4.4-20) 


is  a  local  flow  coefficient,  with  subscript  m  denoting  the  meridional  component  of  the 
velocity. 


Eqns.  (4.4-14)  and  (4.4-15)  are  good  if  the  streamline  inclination  is  small.  Eqns.  (4-4-16) 
and  (4.4-17)  are  obtained  by  ignoring  the  blockage  effect  of  blade  thickness.  In  the 
following  discussion,  the  blockage  effect  is  considered  and  the  induced  velocity  from  the 
distributed  vortices  given  by  Eqn.  (4.4-lOa)  are  obtained  by  solving  the  Poisson  equation 


2 

V  V  = 


-2bpco 


sinX, 


to  give  the  solution 


2 

'’2 


where  u^  is  a  reference  velocity. 


(4.4-21) 


(4.4-22) 


The  induced  velocity  due  to  the  distribution  of  sources  given  by  Eqn.  (4.4-lOb)  is 
approximated  by  (.Inoue,  et  al.,  1980) 


'nX 


■  i^i^)  ^(«X2-WX,) 


(4.4-23) 


with  the  blockage  factor  of  blade  thickness,  K^,,  put  into  the  consideration. 

By  decomposing  both  v^y  and  hito  the  x  and  y  directions,  Eqns.  (4.4-22)  and  (4.4.23), 
together  with  (4.4-13),  become 
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(4.4-24) 


and 
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V  _ 

y^lx 
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1  +  tanp^  tanX 


Wxoo  Wx„ 


(4.4-25) 


(4.4-26) 


(4.4-27) 


4.4.5  Boundary  Condition 


The  flow  approaches  the  blade  by  a  velocity  v^oo  at  an  euigle  relative  to  the  axis  of 
symmetry.  This  velocity,  together  with  flow  velocities  induced  by  distributed  vortices  and 
sources,  should  satisfy  the  following  condition  of  flow  tangency; 


^  W|y  -t-  V;y  + 

dx  "  Wxoo  +  W|x  +  v^x  +  V 


(4.4-28) 
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where  denotes  the  y  coordinate  of  the  camber  line,  and  wi^  and  wjy,  respectively,  are  the 
X  and  y  components  of  velocities  induced  by  bound  vortices  and  sources  along  the  chord. 

4.4.6  Flow  Skewness  in  Diagonal  Contracting  Hhannel 

The  major  goal  of  the  proposed  theory  is  to  make  corrections  of  flow  stream  tube 
nonuniformness  and  diagonal  flow  effects  on  the  two-dimensional  axial  cascade  flow.  This 
is  performed  within  the  framework  of  perturbation  method  by  uniformly  distributing 
vortices,  7,  and  source/sink,  in  cascade  row,  as  described  in  Section  4.4-4.  The  blade 
profile  shape  will  be  properly  modified  in  order  to  take  y  aiid  ^  into  account.  Due  to  the 
distribution  of  uniform  vortices  and  source/sink,  the  flow  skewness  problem  exists,  i.e.,  the 
first  order  effect  on  the  flow  incidence  angle  is  generated  by  such  singularity  distribution. 


I* 


As  shown  in  Figure  4-23,  the  constant  vortices,  are  distributed  in  a  strip  over  the  entire 
cascade  row.  The  complex  potential  W  for  a  point  vortex  ^  placed  at  z’  is  expressed 


W  =  —  In  (z-z') 
2x 


(4.4-29) 


and  the  induced  velocities  are  obtained  by  taking  the  deviations  of  W 


dW 

dC 


iC  x-x’  +  iy’ 
2^  (x-x’)^  +  y'^ 


(4.4-30) 


The  induced  velocities  due  to  the  uniform  distribution  of  vortices  over  a  strip  of  cascade 
region  are  obtained  by  inte  gration 


i 
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IcosX. 


=  J  J  dx’  dy’ 


IcosX 


oo  — 


=  I  I  .  «-«•  a,.  <jy. 


2Jt  (x-x’)2*y 


2  ...2 


As  x-»  -  oo  , 


“  IcosX 


-1  f  tan’^  r  dc' 

^  n  X-X’  J 


Vr  = 


if 


IcosX 


o|  dx’  =  ^  IcosX  , 


#• 


whereas  x->  +  oo 


c 


IcosX  . 


(4.4-31) 


(4.4-32) 


Therefore,  by  distributing  ^  uniformly  as  described  above,  the  upstream  and  downstream 
flows  are  equally  deviated  fiom  the  geometric  mean  flow  w^o  (see  Figure  4-23  again). 


On  the  other  hand,  a  more  rigorous  mathematical  model  by  Mani  and  Acosta  (1968)  will 
lead  to  a  totally  different  conclusion.  Since  this  point  has  been  ignored  by  many 
researchers,  let  us  review  herein  the  details  of  Mani  and  Acosta’s  work.  In  their  work,  the 
channel  contraction  was  chosen  to  be  of  an  exponential  shape  as  shown  in  Figure  4-24.  By 
satisfying  the  proper  boundary  conditions,  the  velocity  component  in  the  y-direction  due  to 
a  point  vortex  of  unit  strength  at  the  origin  is  obtained  (see  the  report  of  Mani  (1966)), 
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J_ 

2k 


2k 


1->  in  (2a-x')^^y^ 

.2  .22/8  .2  .2 

X  +  y  '  '  X  +  y 

+  0  (a^)  far  x'  b 


;i4oaU“  in 
22/8  .2  .2 
'  X  +  y 


(4.4-33) 


.2 

X  +  y 


+  0  (or)  for  x’  ^  a  . 


(4.4-34) 


Therefore,  the  induced  velocity  due  to  a  distribution  of  the  vortices  over  a  chord  length  in 
the  cascade  configuration  is  obtained 


“  7(9  X  ^ 


n  -  -oo 


(4.4-35) 


with  x' 
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a  s 


b  * 


(x-5)  cosA, 

-ns  +  (x-^)  sinX, 


I  -  ^  cosA. 


^  %  cosX  , 
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(4.4-36) 
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(4.4-37) 


Let’s  simplify  the  first  term  of  the  above  integration  by  defining 
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n  -  -oo 


7C  X-l  .  X-4 
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ix  s  s 


From  the  identity  (see  Mellor  (1959)), 
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(4.4-38) 


Therefore, 
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as  x~>  -oo 


as  X-*  +O0 


(4.4-39) 


The  second  terms  of  (4.4-36)  and  (4.4-37)  are  defined,  respectively 

,2 
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Then, 


or 


-  2E  (x-^)  cosX  +  44xc»s^X 
-  2ns  (x-^)  sinX 
,  X  S  -1 

E^  +  2E  (x+^)  cosX  +  44xcos^X 
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or 
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Therefore, 
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Assximing  a  symmetric  loading  (i.e.,  /  ^  Y©^d^  =  0l ), 


[  I* 


1  +  ^  a  a  + 

2  2 


as  x-4  -oo 


as  X — ^  +°° 


where  F  =  /^  y(^d^andY(^)  is  positive  in  the  clockwise  direction.  IfE  =  2a  =  2b, 
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(4.4-40) 


Rewriting  this  induced  velocity  in  two  parts,  by  vp  and  v, 
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The  velocity  diagram  is  now  written  in  Figure  4-25.  It  is  clearly  seen  that  there  exits  ar. 
error  of  first  order  of  a  if  is  chosen  as  the  reference  velocity.  Instead  w^^,  should  be 
chosen  as  the  reference  velocity  so  that  the  blade  setting  will  be  changed.  This  error  is 
z  bstantial  since  the  three-dimensional,  diagonal  flow  correction  handled  under  the 
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current  method  is  order  of  magnitude  a.  This  fact  indicates  that  not  only  the  blade  camber 
profile  needs  correction  as  discussed  earher  but  also  the  blade  setting  should  be  changed  in 
order  to  take  such  3-D  correction  into  account  correctly.  Inoue,  et  al.  (1979,  1980)  did  not 
see  this  point  in  their  series  of  papers. 

There  exist  two  possible  ways  of  implementing  this  idea:  1)  by  assessing  the  flow  channel 
contraction  or  expansion  in  terms  of  equivalent  a.  Equation  4.4-40  will  be  used,  and  2)  a 
more  accurate  calculation  will  be  made  by  using  the  distributed  vortices  o\  ?r  the  cascade 
strip.  The  method  of  actually  incorporating  this  flow  “skewness"  into  the  corrent  design 
theory  will  be  one  of  the  major  tasks  in  the  FY  ’87  GHR  project. 


4.4.7  Secondary  Flow  Correction 


The  secondary  flow  theory  commonly  used  for  axial  flow  is  applicable  to  the  current 
diagonal  flow.  The  strength  of  vortex  at  the  exit  of  blade  channel  due  to  the  secondary  flow, 
C  SF>  ^  expressed 
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(4.4-41) 


number  of  blades. 
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the  component  of  vortex  normal  to  the  direction  of  relative  flow  on 
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line  element  along  the  blade  on  the  rotating  surface 
relative  flow  velocity  on  the  blade  surface 
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q-Une  used  for  the  streamhne  curvature  method 
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e  =  angle  of  a  tangent  line  of  meridional  line  made  with  q-line 
bx,  b2  =  widths  of  flow  at  inlet  and  exit,  respectively 

p2  =  flow  angle  at  exit  relative  to  chord  line. 

By  distributing  the  above  secondary  vortex  at  the  exit  of  blade  channel  and  satisfying  the 
boundary  condition  on  the  hub  and  casing,  the  induced  flow  effect  on  C9  (called  ACe 
hereafter),  will  be  calculated  by  solving  the  corresponding  Poisson’s  equation.  In  the 
current  design  problem,  this  ACg  will  be  taken  into  consideration  for  determining  the  blade 
profile  shape.  More  detailed  numerical  analysis  will  be  developed  in  future  work. 

4.5  DESIGN  PROCEDURE 

The  design  procedure  presented  here  is  based  on  the  assumption  that  the  shape  and  steady 
velocity  of  underwater  vehicle  is  given.  The  whole  procedure  can  be  repeated  for  a  modified 
shape  or  velodfy.  At  the  beginning,  some  parameters,  such  as  the  location  of  the  rotor,  the 
number  of  blades,  and  rotation  speed,  have  to  be  chosen  based  on  experiences.  The  shroud 
opening  should  be  such  that  a  peak  efSdency  is  reached. 

Then  (Figure  4-2),  the  stream  curvature  method  (SCM)  is  used  to  determine  the 
streamlines  for  a  through-flow  in  a  meridional  plane.  As  discussed  in  Section  4.2,  the 
method  is  based  on  solving  the  momentiun  equation  along  qiiasi-orthogonal  lines  (q-lines) 
and  the  conservation  of  mass  is  kept  along  the  meridional  direction. 

After  streamlines  are  determined,  average  stream  smrfaces  are  taken  to  be  the  revolution  of 
streamlines  about  the  axis  of  rotation.  Then  a  program,  DSN3,  is  used  to  do  the  remaining 
design  procedure.  Figure  4-27  depicts  the  macro  view  of  the  procedure  while  Figures  4-26 
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through  4-30  show  details  of  each  substep  based  on  the  theory  presented  in  Sections  4.1  to 
4.4. 

Figure  4-26  shows  the  input  data  required  in  the  general  background.  Input  data  related 
to  each  individxial  cross-section  are  to  be  read  in  subroutine  INP2  as  shown  in  Figure  4-27. 
Some  input  data  are  obtained  from  the  meridional  flow  solutions  computed  in  the  SCM 
program. 

Figure  4-30  shows  the  subroutine  to  calculate  the  flow  velocities  in  the  mapped  (X,  Y)  plane 
as  disciissed  in  Section  4.4.2.  The  subscripts  1  and  2  denote  conditions  at  inlet  and  exit, 
respectively,  of  a  blade. 

One  basic  concept  in  the  present  design  procedure  is  that  the  blade  camber  design  based  on 
ft  •  cascade  experimental  data  is  a^jiisted,  by  considering  the  effects  of  streamline  indination 

and  nonxiniform  velodty  distribution,  such  that  both  the  final  flow  turning  angle  and  the 
inddent  angle  relative  to  the  axis  of  rotation  are  the  same  as  those  obtained  in  the  two- 
dimensional  flow  without  the  three-dimensional  factors. 

The  camber  emd  turning  angle  for  the  case  of  uniform,  parallel  flow  are  evaluated  based  on 
the  required  lift  coeffident  and  solidity  (Figure  4-31).  The  method  relies  on  the 
experimental  data  presented  in  Section  4.3.3. 

In  the  presentation  of  three-dimensional  effects,  which  are  to  be  considered  in  the 
boxmdary  condition  as  discussed  in  Section  4.4,  the  camber  and  stagger  angle  are  adjusted 
until  the  turning  angle  in  the  mapped  two-dimensional  plane  is  the  same  as  that  with 
original  camber  in  the  uniform,  parallel  flow  (Figure  4-32).  A  linearized  cascade  theory 
(Section  4.3.2),  together  with  proper  boundary  condition  which  has  the  three-dimensional 
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FIGURE  4-26.  FLOW  CHART  OF  THE  SELECTED  PUMPJET 
DESIGN  METHOD 
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FIGURE  4-27.  GENERAL  FLOW  CHART  TO  DESIGN  BLADE  IN  A 
FLOW  OF  THREE-DIMENSIONAL  CHARACTER 
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FIGURE  4-28.  FLOW  CHART  FOR  SUBROUTINE  INP 
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FIGURE  4-30.  FLOW  CHART  FOR  SUBROUTINE  MAP32 
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FIGURE  4-32.  FLOW  CHART  FOR  SUBROUTINE  PFM3 
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effects  considered  (Section  4.4),  is  used  to  calculate  the  cascade  lift  coefficient  and  the 
associated  total  circulation. 


If  the  calculated  tximing  angle  for  the  three-dimensional  flow  case  is  different  from  the 
I  desired  value,  the  camber  and  stagger  angles  are  adjusted  in  an  iteration  process  until  the 

desired  value  is  achieved  to  within  certain  tolerance  criterion.  When  the  result  is 
converged,  the  final  camber  is  the  one  which,  under  the  influence  of  three-dimensional  flow, 
I  will  yield  the  desired  lift  coefficient. 
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5.0 


5.1  DESIGN  SPECIFICATION 


The  propulsor  connguration  ard  its  performance  are  highly  dependent  on  the 
hydrodynamic  characteristics  of  the  vehicle.  Specifically,  the  distortion  of  the  velocity 
distribution  of  the  incoming  fiow  to  the  propulsor  plays  a  key  role  in  designing  the  rotor 
blade  profiles.  The  following  information  are  needed  to  design  a  pumpjet: 

1)  Geometry  of  an  imderwater  vehicle  and  its  drag, 

2)  Upstream  flow  velocity  profile,  and 

3)  Goal  speed. 

The  geometric  characteristics  of  an  underwater  vehicle  are  determined  by  its  mission,  hotel 
load  requirement,  and  the  launching  equipment  to  be  used  The  hotel  load  wUl  determine 
the  required  volume  and  weight  of  the  vehicle,  and  the  launching  equipment  limits  the  size 
of  vehicle.  Once  the  weight  of  the  vehicle  is  properly  determined,  the  stability- 
maneuverability  requirement  will  determine  the  area  and  position  required  for  the  control 
surfaces.  Then,  the  drag  on  the  vehicle  can  be  either  measured  from  scaled  model  tests  in 
a  wind  or  water  tunnel,  or  calculated  from  the  empirical  formula  such  as  those  given  by 
J.D.  Brook  and  T.G.  Lang^. 

The  pumpjet  needs  to  accept  the  distorted  flow  of  the  boundary  layer  generated  by  the  hull, 
and  those  requiring  accurate  measurement  or  prediction  of  the  velocity  profile  at  the  inlet. 


1  Brooks,  J.O.,  and  T.G.  Lang,  “Simplified  Methods  for  Estimating  Torpedo  Drag”. 
Underwater  Missile  Propulsion,  L.  Greiner,  ed..  Compass  Publications,  Inc. 
(Arlington,  Virginia),  1967,  pp.  117-146. 
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In  the  normal  procedure,  the  potential  flow  around  the  vehicle  is  calculated  with  an 
estimated  value  of  the  boundary  layer  thickn  ss  around  the  hull.  An  iterative  procedure  is 
employed  until  the  estimated  boundary  layer  thickness  matches  with  that  obtained  from 
the  boundary  layer  analysis.  Once  the  correct  boundary  layer  thickness  is  obtained,  the 
velocity  profile  can  be  calculated  as  the  result  of  a  turbulent  boundary  layer  theory 
analysis. 

However  due  to  the  lack  of  time  required  to  run  such  an  iteration  procedure,  a  fictitious 
velocity  profile  at  a  specified  inlet  position  is  used  for  exercising  these  sample  design 
calculations. 

5.2  MOMENTUM  THEORY 


A  simple  momentum  theory  should  be  applied  to  a  control  volume  enclosing  the  target 
vehicle  which  a  project  is  designed.  The  detailed  theoretical  basis  is  provided  in  Section 
4.1.1  of  the  report  of  Furuya  (and  Chiang  1986)).  By  utilizing  the  velocity  profile  obtained 
through  an  experiment  or  use  of  a  turbulent  boundary  layer  computer  code,  the  maximum 
proptilsive  efficiency  can  be  determined  with  the  optimum  opening  diameter  also  to  be 
determined. 

Due  to  the  limited  time  available  for  completing  the  project,  this  routing  was  not  exercised, 
but  an  arbitrarily  chosen  shroud  diameter  and  profile  shape  were  used  for  running  the 
SCM  in  the  following  section. 
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5.3  INPUT  TO  AND  OUTPUT  FROM  SCM  (STREAMLINE  CURVATURE 

METHOD) 

It  is  difficxilt  to  obtain  analytically  the  velocity  profiles  near  the  aft  end  of  a  body  of 
revolution  since  the  afterbody  curvature  often  produces  a  strong  adverse  pressiire  gradient 
normal  to  the  flow.  One  of  the  most  reliable  ways  to  estimate  the  velocity  profile  is  to 
fabricate  a  scale  model  and  measure  the  necessary  velocity  distribution  either  in  a  wind  or 
water  tunnel.  Such  model  testings  are  usually  very  costly.  An  alternative  way  is  to  use  the 
streamline  curvature  method  (SCM)  in  which  detailed  flow  profiles  are  numerically 
calculated  at  various  stations.  (See  R.A.  Novak^  for  detail  explanation  on  SCM.) 

Td  obtain  the  velocity  profiles  through  the  SCM  program,  coordinates  of  the  vehicle  hull  are 
used  as  one  of  the  boundaries.  The  outer  contoirr  is  then  defined  by  a  streamline.  Figure 
5.2-1  shows  the  geometry  of  a  vehicle  afteriwdy  and  the  locations  of  various  stations.  This 
geometric  information,  flow  blockage  efiect  produced  by  the  rotor  blade  thickness,  velocity 
profile  at  Station  #1  and  radial  distribution  of  peripheral  velodly  generated  by  the  rotor  at 
Station  #3,  are  the  required  input  data  for  the  program.  Figiuos  5.2-2  and  5.2-3  show  the 
velocity  profile  at  Station  #1  and  the  radial  distribution  of  peripheral  velocity  at  Station  #3 
respectively,  used  for  the  present  sample  calculations. 

The  output  from  the  SCM  program  includes  the  locations  of  meridional  streamlines  and  the 
velocity  profiles  at  various  downstream  locations.  Figure  5.2-1  shows  the  computed 
meridional  streamlines  in  comparison  to  an  initial  guess.  Figure  5.2-4  shows  the  velocity 
profiles  at  the  rotor  inlet  and  exit. 


I 

2  Novak,  R.A.,  “Streamline  Cuivature  Computing  Procedures  for  Fluid  Flow  Problems”. 
ASME  Paper  66-WA/GT-3,  November  27, 1966. 
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INITIALLY  GUESSED  STREAMLINE 
COMPUTED  STREAMLINE 


FIGURE  5.2-1.  GEOMETRY  OF  AFTERBODY  AND 
MERIDIONAL  STREAMLINES 
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FIGURE  5.2-2.  MERIDIONAL  VELOCITY  PROFILE  AT  STATION  #1 


1.00 


FIGURE  55-3.  PERIPHERAL  VELOCITY  DISTRIBUTION  AT  STATION  #3 


FIGURE  5.2-4.  MERIDIONAL  VELOCITY  PROFILES  AT  STATIONS  #2  AND  #3 


TABLE  5.3-1.  LISTING  OF  INPUT  FILE  TO  PROGRAM  SCM 


-2 

1 

1  (0)  IBFLOW, 

I0SN3.  LG 

(3037-SCMISNU  2. DAT)  FOLLOUING 

ARE  INPUT  DATA 

FOR  SUB  HUFLOU...  86,  REVISED 

200CT87  (1) 

5 

5 

2 

3  2 

(2)  NN,  NO, 

NOI, 

NOB,  I  CM 

360.0000 

0.1620000 

1.000000 

0.7000000 

0.7000000 

1.0000000E-06 

1 .00000006-03 

9.9999997E-05 

(3)  ONG,  RAS, 

ONPCN,  DNPG,  DNPL,  EPSCM,  EPSG,  EPSL 

O.OOOOOOOE-^00 

-0.3002000 

■0.3578000 

-0.3386000 

-0.2723000 

(4) 

RUMRO(I) 

2.493000 

2.631000 

2.715000 

2.732000 

2.750000 

(5) 

Z(I,1) 

-7.000000 

-12.20000 

-17.50000 

-20.00000 

-15.00000 

-18.40000 

-16.50000 

-18.40000 

-15.50000 

-18.40000 

(6) 

PHIDKI),  PHIDN(l) 

O.OOQOOOOE-^OO 

O.OOOOOOOE-t^OO 

0.1380000 

0.1499000 

0.2220000 

0.2377000 

0.2390000 

0.2520000 

0.2570000 

0.2687000 

(7) 

SM(I,1),  SN(I,NM) 

o.oooooooE«^oo 

O.OOOOOOOE+00 

O.OOOOOOOE+00 

o.oooooooE«oo 

O.OOOOOOOE-i-OO 

O.OOOOOOOE^OO 

O.OOOOOOOE+00 

O.OOOOOOOE-^00 

o.oooooooE«oo 

0.00000006*00 

O.OOOOOOOE+00 

O.OOOOOOOE+00 

O.OOOOOOOE^OO 

O.OOOOOOOE'M)0 

0.00000006*00 

5. 150000 

5.150000 

5.150000 

5.150000 

5.150000 

10.30000 

10.30000 

10.30000 

10.30000 

10.30000 

(8) 

CTH(I,J) 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

(9) 

6L0(t,J) 

68.58108 

137.1622 

205.7432 

274.3243 

(12)  GS(I) 

12.86100 

19.09565 

20.87901 

22.03418 

22.94403 

10.08009 

14.91218 

16.24901 

17.08810 

17.72967 

9.555634 

14.10877 

15.35382 

16.13017 

16.72132 

9.975438 

14.74704 

16.06006 

16.88045 

17.50512 

10.43815 

15.44135 

16.82594 

17.69516 

18.35966 

(13) 

CM(I,J) 

0.1350450 

0.1398175 

0.1437123 

0.1472649 

0.1505900 

9.4233997E-02 

0.1023083 

0.1086411 

0.1142517 

0.1193800 

5.8674000E-02 

7.1355730E-02 

8.0497034E-02 

8.8200070E-02 

9.499S998E-02 

5.2577998E-02 

6. 5953061 E- 02 

7.5394720E-02 

8.3268791E-02 

9.017D003E-02 

4.6735998E-02 

6.1068624E-02 

7.0922948E-02 

7.9042293E-02 

8.6106002E-02 

(14) 

R(I,J) 

150.9785 

255.6788 

292.8486 

315.7634 

334.5784 

150.9785 

255.6788 

292.8486 

315.7634 

334.5784 

150.9785 

255.6788 

292.8486 

315.7634 

334.5784 

248.4581 

377.9558 

432.6305 

470.1437 

501.7536 

324.2756 

482.1213 

555.8309 

608.8522 

653.8595 

(15) 

H(I,J) 

END  OF  INPUT  DAT  SCMISNU  2.DAT 
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5.4 


INPUT  DATA  TO  MELLOR’S  PROGRAM 


Progrsm  MELLOR,  listed  in  Appendix  B.3,  requires  three  input  data  files  in  this  study. 
These  three  files  are  named  RI.DAT,  BLADE.DAT,  and  MELI.DAT.  The  output  data  files 
include  MEL1O.DAT  and  MELO10.DAT.  The  nomenclat\ire  of  input  data  is  presented  in 
Appendix  C.3. 

The  file  RI.DAT  is  generated  firom  Program  RIS  which  is  listed  in  Appendix  B.2.  Cascade 
influence  fimctions,  R  and  I,  (MeUor,  1959)  are  calculated  in  this  program  to  be  used  in 
Program  MELLOR  for  a  variety  of  applications.  The  input  data  to  this  program  RIS  is 
called  RISI.DAT  and  listed  in  Table  5.4-1.  The  nomenclature  of  input  data  is  listed  in 
Appendix  C.2.  As  this  sample  input  data  shows,  the  cascade  influence  functions  are 
calculated  for  the  stagger  angle  ranges  firom  0  to  60  degrees  at  an  interval  of  15  degrees. 
C  •  The  (x0-x)/s  ratio  ranges  from  0  to  2  at  an  interval  of  0.05.  The  convergence  criterion  used 

in  Program  RIS  is  0.000001. 

The  file  RI.DAT  as  one  of  input  files  to  Program  MELLOR  is  listed  in  Table  5.4-2.  In  this 
sample  input  file,  values  of  fimction  R  and  fimddon  I  are  listed  after  the  parameters 
which  define  the  range  of  the  functions.  The  function  values  inside  this  matrix  range  are 
interpolated  in  Program  MELLOR 

The  second  input  file,  BLADE  J)AT,  is  listed  in  Table  5.4-3.  The  thickness  distribution  of 
NACA  65-010  is  taken  firom  Heirig,  et  al.  (1951).  A  flag  in  the  input  file  MELI.DAT 
controls  whether  the  distribution  of  camber  slope  is  to  be  obtained  firom  the  input  camber 
data  given  by  BLADE.DAT  or  calculated  from  a  formula.  This  ample  study  utilizes  a 
formula  (Abbott  &  von  Doenhoff,  1959,  eq.  4.25): 
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TABLE  5.4-1.  LISTING  OF  INPUT  DATA  TO  PROGRAM  RIS 


(3037-RISI.DAT)  INPUT  FILE  FOR  3037-RIS 

0.,  60.,  15.,  0.,  2.,  .05  AMDA,  AMDZ,  AMDI ,  XSA,  XSZ,  XSI 

3000,  lE-6  NMAX,  EPS 

END  OF  RISI.DAT 
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TABLE  5.4-2.  LISTING  OF  RI.DAT,  AN  INPUT  DATA  FILE  TO  PROGRAM  MELLOR 


( 3037 -RI. DAT)  GENERATED  FROM  RIS.FOR  FOR  MELLOR. FOR 

l.OOOOOOOE-06  O.OOOOOOOE+00  60.00000  15.00000  0 . OOOOOOOE+00 

2.000000  5.0000001E-02 

0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00 

5.2173398E-02  4. 5208521E-02  2 . 6169103E-02  8 . 6473985E-05  -2 . 6082352E-02 

0.1038949  9.0213299E-02  5 . 2621908E-02  6 . 8930385E-04  -5 . 1932193E-02 

0.1546278  0.1347106  7 . 9560533E-02  2 . 3246906E-03  - 7 . 7233396E-02 

0.2039254  0.1784404  0.1071651  5 . 5044037E-03  -0.1016441 

0.2514041  0.2211502  0.1355503  1.0727535E-02  -0.1247449 

0.2967545  0.2625987  0.1647505  1 . 8465405E-02  -0.1460087 

0.3397457  0.3025640  0.1947111  2 . 9137187E-02  -0.1647694 

0.3802256  0.3408486  0.2252868  4 . 3076873E-02  -0.1801937 

0.4181130  0.3772891  0.2562491  6 . 0493194E-02  -0.1912633 

0.4533932  0.4117613  0.2873063  8 . 1427529E-02  -0.1967846 

0.4861057  0.4441831  0.3181238  0.1057185  -0.1954414 

0.5163313  0.4'’45143  0.3483529  0.1329817  -0.1859200 

0.5441841  0.5027574  0.3776606  0.1626173  -0.1671294 

0.5697998  0.5289490  0.4057501  0.1938487  -0.1385061 

0.5933266  0.5531567  0.4323842  0.2257907  -0.1003568 

0.6149191  0.5754741  0.4573899  0.2575375  -5 .4117262E-02 

0.6347337  0.5960090  0.4806646  0.2882531  -2 . 3720309E-03 

0.6529205  0.6148804  0.5021708  0.3172460  5 . 1462054E-02 

0.6696242  0.6322143  0.5219283  0.3440161  0.1037472 

0.6849818  0.6481345  0.5400006  0.3682702  0.1513210 

H*  0.6991182  0.6627645  0.5564828  0.3899067  0.1920179 

0.7121500  0.6762204  0.5714924  0.4089816  0.2248574 

0.7241826  0.6886137  0.5851550  0.4256665  0.2499200 

0.7353121  0.7000443  0.5976023  0.4402044  0.2680355 

0.7456259  0.7106067  0.6089611  0.4528722  0.2804396 

0.7552003  0.7203860  0.6193488  0.4639508  0.2884880 

0.7641057  0.7294580  0.6288769  0.4737064  0.2934675 

0.7724064  0.7378905  0.6376457  0.4823773  0.2964911 

0.7801540  0.7457454  0.6457406  0.4901679  0.2984570 

0.7874034  0.7530785  0.6532381  0.4972489  0.3000457 

0.7941947  0.7599384  0.6602086  0.5037566  0.3017366 

0.8005722  0.7663677  0.6667088  0.5097985  0.3038370 

0.8065685  0.7724059  0.6727877  0.5154570  0.3065091 

0.8122170  0.7780849  0.6784909  0.5207939  0.3098033 

0.8175462  0.7834380  0.6838531  0.5258540  0.3136829 

0.8225805  0.7884922  0.6889084  0.5306704  0.3180547 

0.8273461  0.7932720  0.6936845  0.5352667  0.3227890 

0.8318605  0.7977986  0.6982051  0.5396599  0.3277435 

0.8361445  0.8020902  0.7024913  0.5438622  0.3327767 

0.8402145  0.8061675  0.7065633  0.5478841  0.3377616 

0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00  0 . OOOOOOOE+00 

O.OOOOOOOE+00  2.6051806E-02  4 . 5177013E-02  5 . 2259099E-02  4 . 5325797E-02 

O.OOOOOOOE+00  5.1693503E-02  8 . 9961112E-02  0.1045710  9 . 1154113E-02 

0 . OOOOOOOE+00  7.6480716E-02  0.1338598  0,1568561  0.1378854 

0 . OOOOOOOE+00  0.1000385  0.1764258  0.2090313  0.1859587 

0 . OOOOOOOE+00  0.1220554  0.2172237  0.2609444  0.2358032 

0 . OOOOOOOE+00  0.1422951  0.2558396  0.3123513  0.2878196 
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TABLE  5.4-2  (CONTINUE) 


0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0. OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0. OOOOOOOE+OO 
0. OOOOOOOE+OO 
0 .  OOOOOOOE+OO 
0 .  OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 .  OOOOOOOE+OO 
0.  OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0. OOOOOOOE+OO 
0. OOOOOOOE+OO 
0. OOOOOOOE+OO 
999 

END  OF  RI.DAT 


0.1606027 

0.1769041 

0.1911983 

0.2035502 

0.2140741 

0.2229210 

0.2302646 

0.2362877 

0.2411720 

0.2450914 

0.2482054 

0.2506564 

0.2525685 

0.2540476 

0.2551827 

0.2560472 

0.2567002 

0.2571902 

0.2575548 

0.2578243 

0.2580214 

0.2581648 

0.2582674 

0.2583403 

0.2583915 

0.2584263 

0.2584499 

0.2584645 

0.2584735 

0.2584784 

0.2584804 

0.2584800 

0.2584781 

0.2584758 


0.2918963 

0.3250709 

0.3551127  • 

0.3818625 

0.4052587 

0.4253430 

0.4422548 

0.4562132 

0.4675004 

0.4764381 

0.4833625 

0.4886056 

0.4924799 

0.4952668 

0.4972095 

0.4985138 

0.4993477 

0.4998435 

0.5001053 

0.5002100 

0.5002157 

0.5001622 

0.5000779 

0.4999814 

0.4998844 

0.4997938 

0.4997140 

0.4996448 

0.4995878 

0.4995399 

0.4995025 

0.4994707 

0.4994464 

0.4994268 


0.3629004 

0.4121253 

0.4594491 

0.5042129 

0.5457183 

0.5832939 

0.6163695 

0.6445497 

0.6676732 

0.6858298 

0.6993546 

0.7087771 

0.7147540 

0.7179930 

0.7191823 

0.7189455 

0.7178043 

0.7161744 

0.7143623 

0.7125776 

0.7109549 

0.7095658 

0.7084345 

0.7075584 

0.7069145 

0.7064697 

0.7061867 

0.7060302 

0.7059656 

0.7059633 

0.7060025 

0.7060635 

0.7061325 

0.7062013 


0.3423521 

0.3996373 

0.4597335 

0.5224231 

0.5870879 

0.6525828 

0.7171478 

0.7784145 

0.8335955 

0.8798838 

0.9150272 

0.9378765 

0.9487000 

0.9491126 

0.9416457 

0.9291563 

0.9143054 

0.8992313 

0.8854305 

0.8737952 

0.8647228 

0.8582494 

0.8541788 

0.8521667 

0.8518068 

0.8526737 

0.8543637 

0.8565169 

0.8588344 

0.8610812 

0.8630911 

0.8647590 

0.8660343 

0.8669177 
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FIGURE  5.4-3.  LISTING  OF  BLADE.DAT,  AN  INPUT  DATA  FILE 
TO  PROGRAM  MELLOR 


(3037-BLA0E.0AT)  THICKNESS  (REVISED  THICKNESS  Of  NACA  65-010,  HERRIG,  ET  AL,  1951,  P.23)...  240CT86  (1105)  TITL 
26  (1106)  IN 

0.  .5  .75  1.25  2.5  5.  7.5  10.  15.  20. 

25.  30.  35.  40.  45.  50.  55.  60.  65.  70. 

75.  80.  85.  90.  95.  100.  (1107)  (  XIN(I),  I»1,IN) 

0.  .752  .890  1.124  1.571  2.222  2.709  3.111  3.746  4.218 

4.570  4.824  4.982  5.057  5.029  4.870  4.570  4.151  3.627  3.038 

2.451  1.847  1.251  .749  .354  .150  (1108)  (  YIN(I),  1=1, IN) 

999 

END  Of  (3037-MELL0R-BLA0E.DAT) 


(3037-BLA0E.0AT)  CAMBER  (NACA  MEAN  LINE  a  «  1.0,  ABBOTT  t  VON  DOENHOff,  1959)  &  THICKNESS...  240CT86  (1101)  TITL 
31  (1102)  IN 


0. 

.5  .75  1.25 

2.5  5. 

7.5 

10. 

15.  20. 

25. 

30.  35.  40. 

45.  50. 

55. 

60. 

65.  70. 

75. 

80.  85.  90. 

92.5  95. 

97.5 

98. 

.75  99.25  99.5 

100. 

(1103)  (  XIN(I), 

1-1. IN) 

0. 

0.250  0.350  0.535 

0.930  1. 

.580  2.12C 

1  2. 

.585  3.365  3.980 

4.475 

4.860  5.150  5.355 

5.475  5. 

,515  5.475 

5, 

.355  5.150  4.860 

4.475 

3.980  3.365  2.585 

2.120  1. 

.580  0.93C 

I  0. 

.530  0.350  0.250 

0. 

(1104)  (  YIN(I), 

1=1, IN) 

« 
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dy/dx  =  ln(c/x-1)/(4jt) 


to  calculate  the  slope.  Instead,  a  set  of  camber  data  for  NACA  mean  line  a=0  (Abbott  &  von 
Doenhoff,  1959),  shown  as  the  lower  half  of  Table  5.4-3,  can  be  used  in  front  of  the 
thickness  distribution  data  in  the  table. 

Listed  in  Table  5.4-4  is  the  controlling  input  data  MEL.DAT.  In  this  sample  study,  100 
points  along  the  chord  line  is  used  in  the  computation  to  establish  the  basis  in  determining 
the  cascade  lift  coefficient.  Fourier  series  after  the  seventh  term  is  truncated.  This  input 
file  is  vised  to  generate  a  data  file  MELO10.DAT  for  Program  DSN3  (see  Sec.  5.5).  The 
solidity  of  1.35  in  Table  5.4-4  can  be  replaced  by  other  values  to  generate  the  required  data 
for  the  corresponding  solidity. 

5.5  INPUT  DATA  TO  MAIN  INTEGRATION  DESIGN  PROGRAM  (MIDP) 

* 

The  main  integration  design  program  (MIDP)  is  listed  as  Program  DSN3  in  Appendix  B.4. 
It  requires  three  input  data  files:  DSN3ZI.DAT,  MELOlO.DAT,  and  DSN#I.DAT.  The 
nomenclature  of  input  data  is  presented  in  Appendix  C.4.  The  output  firom  the  program  is 
kept  in  the  file  DSN30.DAT. 

The  file  DSN3ZI.DAT  (Table  5.5-1)  is  an  output  of  Program  SCM.  The  main  information  in 
this  file  is  the  meridional  velocity  and  peripheral  velocity  distributions  in  the  rotor  area. 
Also  included  is  the  location  of  streamlines,  based  on  various  coordinates,  and  other 
parameters  such  as  blockage  coefficient  and  flvdd  density. 

The  file  MELOlO.DAT  (Table  5.5-2)  is  generated  by  Program  MELLOR.  It  contains  tables 
of  gn,  hj,,  B,  and  T  (Eq.  4.3)  for  a  particvilar  value  of  solidity  and  a  range  of  stagger  angles. 
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FIGURE  5.4-4.  LISTING  OF  MELI.DAT,  AN  INPUT  DATA  FILE  TO 
PROGRAM  MELLOR 


(3037-MELL0R-MEU.DAT)  UNIT  5  INPUT  FILE  FOR  (3037-MELLOR)  17JUN88 

MAKE  MELOlO . DAT  FOR  PROGRAM  DSN3 . . .  SOLIDITY-1 . 18 

11,  3,  0,  100,  7,  0  (2)  MH,  INCAM,  IFLAT,  NSEC,  NFR,  LIST 

1.,  1.  (3)  CBI,  SENDl 

1.18  (9)  CSA 

999  (10)  IDUM 

END  OF  (3037-MELLOR-MELI.DAT) 
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FIGURE  5.5-1.  DSN3ZI.DAT,  AN  INPUT  DATA  FILE  TO 
PROGRAM  DSN3  (MIDP) 


OUTPUT  FROM  SCM,  FOR  INPUT  TO  DSN3 


3 

O.OOOOOOOE+OO 
10.30000 
2.715000 
2.754555 
2.743039 
5.8674000E-02 
6.3050024E-02 
8.3924957E-02 
0.2220000 
0.2728999 
0.2580943 
3.855058 
15.68967 
18.49190 
0 . OOOOOOOE+OO 
1.6938113E-02 
3.3233963E-02 
1.000000 
1 . 000000 
1.000000 
1000 . 000 
1000.000 
1000.000 


5 

0 . OOOOOOOE+OO 
9.976315 
2.732000 
2.723524 
2.759205 
5.2577998E-02 
8.1472553E-02 
7.9700582E-02 
0.2390000 
0.2389733 
0.2748030 
3.512583 
16.28281 
19.21535 
O.OOOOOOOE+OO 
2.4340013E-02 
3.4225628E-02 
1.000000 
1 . 000000 
1.000000 
1000.000 
1000.000 
1000.000 


O.OOOOOOOE+OO 
10.11178 
2.750000 
2.740501 
2.728580 
4.6735998E-02 
7.6717153E-02 
9.4995998E-02 
0.2570000 
0.2566037 
0.2377000 
4.083045 
17.13391 
17.96828 
0 . OOOOOOOE+OO 
2.5592268E-02 
3.8777813E-02 
1 . 000000 
1 . 000000 
1.000000 
1000.000 
1000.000 
1000.000 


O.OOOOOOOE+OO 
10.21493 
2.720332 
2.757123 
2.745239 
7.2934225E-02 
7.2243065E-02 
9.0170003E-02 
0.2372768 
0.2738170 
0.2520000 
14.54134 
17.87474 
19.49733 
1.5224391E-02 
2.6482830E-02 
3.9854944E-02 
1.000000 
1 . 000000 
1.000000 
1000.000 
1000.000 
1000 . 000 


20-OCT-87 

O.OOOOOOOE+OO 
10.30000 
2.737401 
2.726212 
2.760993 
6.7915648E-02 
8.8661440E-02 
8.6106002E-02 
0.2550692 
0.2406130 
0.2687000 
15.05411 
17.23342 
20. '’6405 
1.6260931E-02 
3.2014962E-02 
4.0876091E-02 
1.000000 
1 . 000000 
1.000000 
1000.000 
1000.000 
1000.000 


I 


I 
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FIGURE  5.5-2.  MEL010.DAT,  AN  INPUT  FILE  TO  PROGRAM 
DSNS  (MIDP) 


(3037-MELLOR-MELO10)  G  &  H  FUNCTIONS  (MELLOR,  1959,  TABLE  3) 
NFR 

7 

CS,  AMDA,  AMDI,  AMDZ 

1.180000  0 . OOOOOOOE+00  15.00000  60.00000 

NYS 

101 


(  XCC(I),  I-l.NYS)  &  (  FCP(I),  I-1,NYS) 


O.OOOOOOOE+00 

2.4673343E-04 

9.8663568E-04 

2.2190213E-03 

3.9426386E-03 

6.1558187E-03 

8.8563859E-03 

1.2041628E-02 

1.5708417E-02 

1.9853175E-02 

2.4471730E-02 

2.9559612E-02 

3.5111755E-02 

4.1122701E-02 

4.7586467E-02 

5.4496735E-02 

6.1846673E-02 

6.9628984E-02 

7.7836037E-02 

8.6459719E-02 

9.5491491E-02 

0.1049225 

0.1147434 

0.1249445 

0.1355157 

0 . 1464466 

0.1577265 

0.1693441 

0.1812880 

0.1935465 

0.2061074 

0.2189583 

0.2320866 

0.2454793 

0.2591232 

0.2730048 

0.2871104 

0.3014261 

0.3159377 

0.3306310 

0.3454915 

0.3605045 

0.3756551 

0.3909284 

0.4063094 

0.4217828 

0.4373334 

0.4529459 

0.4686048 

0.4842946 

0.5000000 

0.5157054 

0.5313953 

0.5470542 

0.5626667 

0.5782173 

0.5936907 

0.6090716 

0.6243450 

0.6394956 

0.6545085 

0.6693690 

0.6840622 

0.6985739 

0.7128897 

0.7269953 

0.7408769 

0.7545208 

0.7679134 

0.7810418 

0.7938927 

0.8064536 

0.8187121 

0.8306561 

0.8422736 

0.8535534 

0.8644843 

0.8750556 

0.8852566 

0.8950775 

0.9045085 

0.9135402 

0.9221640 

0.9303710 

0.9381534 

0.9455033 

0.9524136 

0.9588774 

0.9648883 

0.9704404 

0.9755283 

0.9801468 

0.9842916 

0.9879584 

0.9911436 

0.9938442 

1.000000 

0.9960573 

0.9977810 

0.9990134 

0.9997532 

0.7713992 

0.6610465 

0.5506938 

0.4860964 

0.4402190 

0.4045864 

0.3754243 

0.3507195 

0.3292697 

0.3102995 

0.2932796 

0.2778321 

0.2636781 

0.2506056 

0.2384500 

0.2270804 

0.2163914 

0.2062968 

0.1967249 

0.1876157 

0.1789184 

0.1705893 

0.1625910 

0.1548910 

0.1474607 

0.1402750 

0.1333116 

0.1265507 

0.1199746 

0.1135673 

0.1073143 

0.1012024 

9.5219724E-02 

8.9355148E-02 

8.3598569E-02 

7.7940598E-02 

7.2372496E-02 

6.6886142E-02 

6.1473899E-02 

5.6128554E-02 

5.0843354E-02 

4.5611825E-02 

4.0427864E-02 

3.5285547E-02 

3.0179225E-02 

2.5103418E-02 

2.0052830E-02 

1.5022236E-02 

1.0006566E-02 

5.0008148E-03 

0 . OOOOOOOE+00 

-5.0008306E-03 

-1.0006603E-02 

-1.5022261E-02 

-2.0052856E-02 

-2.5103461E-02 

-3.0179247E-02 

-3.5285573E-02 

-4.0427905E-02 

-4.5611851E-02 

-5.0843373E-02 

-5.6128558E-02 

-6.1473906E-02 

-6.6886187E-02 

-7.2372548E-02 

-7.7940658E-02 

-8.3598629E  02 

-8.9355186E-02 

-9.5219739E-02 

-0.1012025 

-0.1073143 

-0.1135673 

-0.1199746 

-0.1265508 

-0.1333116 

-0.1402749 

-0.1474607 

-0.1548910 

-0.1625911 

-0.1705893 

-0.1789184 

-0.1876157 

-0.1967250 

-0.2062968 

-0.2163915 

-0.2270804 

-0.2384500 

-0.2506059 

-0.2636783 

-0.2778324 

-0.2932798 

-0.3102999 

-0.3292701 

-0.3507200 

-0.3754249 

-0.4045873 

-0.4402193 

-0.4860959 

-0.5506907 

-0.6610565 

-0.7714224 

TOC 
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FIGURE  5.5-2  (CONTINUE) 


0.1011400 

FOLLOWING  ARE  (  (  G(N,K).  K-1,NFR),  N-1,NFR), 

(  (  H(ll,K),  K-l.NFR),  N-1,NFR),  (  B(N)  ,  N-1,NFR),  & 

(  T(N),  N-l.NFR),  FOR  AMDAD-AMDA.AMDZ.AMDI 

1.373091  -0.3730868  -4. 7396030E-02  3 . 4194361E-02  -8 . 2726954E-03 


2.7298896E-02  -1.0916364E-02 
4.4038385E-02  0 . OOOOOOOE+00 

O.OOOOOOOE+00  -1.057238 
-1.2193669E-02  0 . OOOOOOOE+00 

O.OOOOOOOE+00  -1.7021501E-03 
6.7244815E-03  0 . OOOOOOOE+00 

O.OOOOOOOE+00  -2.6436450E-03 
-1.000157  O.OOOOOOOE+00 

0 . OOOOOOOE+00  2.7375855E-04 
0 . OOOOOOOE+00  0 . OOOOOOOE+00 
0 . OOOOOOOE+00  0 . OOOOOOOE+00 
0 . OOOOOOOE+00  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0. OOOOOOOE+OO  0. OOOOOOOE+OO 
0. OOOOOOOE+OO  0. OOOOOOOE+OO 
0. OOOOOOOE+OO  0 . OOOOOOOE+OO 
0. OOOOOOOE+OO  0. OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
2.7139602E-02  -6 .4016335E-02 
0.  OOOOOOOE+OO  0.  OOOOOOOE+OO 
0. OOOOOOOE+OO  0. OOOOOOOE+OO 
1.347499  -0.3474957 

2.5209146E-02  -1.0509614E-02 
3.8775515E-02  0 .OOOOOOOE+OO 

0 . OOOOOOOE+OO  -1.045862 
-1.1747241E-02  0 . OOOOOOOE+OO 

0 . OOOOOOOE+OO  -1.9178378E-03 
3.6600952E-03  0 . OOOOOOOE+OO 

0 . OOOOOOOE+OO  -1.9150847E-03 
-0.9998317  0. OOOOOOOE+OO 

0. OOOOOOOE+OO  -4.0932264E-05 
1.6382568E-02  -2 .4923453E-02 
7.3303141E-05  -5 .0039165E-02 
-4.6786284E-03  1 . 4217595E-08 

-6.5222334E-09  3 . 0112659E-04 

7.2376807E-03  -2 . 9231069E-09 
-1.7320767E-09  -3 . 7230671E-05 
6.1145436E-04  -3 . 5193545E-10 
1.6313151E-10  -1.6344152E-04 
-1.0959200E-05  3.0393448E-11 

2.2095312E-11  1 . 9509838E-05 

2.6716035E-02  -6 . 3679554E-02 
0.1274393  1.1902492E-02 

-6.1859790E-04  - 3 . 0790437E-03 
1.271879  -0.2718769 


0. OOOOOOOE+OO  -1.420481  0 . OOOOOOOE+OO 

3.0418137E-02  0 . OOOOOOOE+OO  0.4072816 

0 . OOOOOOOE+OO  -8.1798490E-03  0 . OOOOOOOE+OO 

3.9121512E-02  0 . OOOOOOOE+OO  -1.009937 

0 . OOOOOOOE+OO  -6.8957144E-03  0 . OOOOOOOE+OO 

-1.001510  0. OOOOOOOE+OO  1 . 6851907E-05 

0 . OOOOOOOE+OO  1.3701854E-03  0 . OOOOOOOE+OO 

9.5066230E-04  0 . OOOOOOOE+OO  -6 . 3849147E-04 

0 . OOOOOOOE+OO  -1.000018  0 . OOOOOOOE+OO 

0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0. OOOOOOOE+OO 
0. OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0 . OOOOOOOE+OO  0 . OOOOOOOE+OO 
0 . OOOOOOOE+OO  0. OOOOOOOE+OO  0 . OOOOOOOE+OO 
0. OOOOOOOE+OO  0. OOOOOOOE+OO  0 . OOOOOOOE+OO 
0. OOOOOOOE+OO  8.0536567E-02  6 . 2625073E-03 

-3.5316154E-02  -4 . 0477101E-02  -4'.4769414E-02 
0. OOOOOOOE+OO  0. OOOOOOOE+OO  0 . OOOOOOOE+OO 

-3.9202519E-02  3 . 2114621E-02  -8 . 5944878E-03 

0. OOOOOOOE+OO  -1.386697  0 . OOOOOOOE+OO 

2.8209714E-02  0 . OOOOOOOE+OO  0.3796105 

0. OOOOOOOE+OO  -9.4877388E-03  0 . OOOOOOOE+OO 

3.0606378E-02  0 . OOOOOOOE+OO  -1.005767 

0 . OOOOOOOE+OO  -6.9056829E-03  0 . OOOOOOOE+OO 

-1.000190  0 . OOOOOOOE+OO  -1 . 3431325E-05 

0. OOOOOOOE+OO  3.4441851E-04  0 . OOOOOOOE+OO 

1.1059480E-03  0. OOOOOOOE+OO  -2 . 5798939E-04 

0 . OOOOOOOE+OO  -0.9999556  -4 . 2275999E-02 

8.3927251E-04  -4.4739526E-03  4 . 5580021E-04 

2.3007811E-08  -2 . 8945163E-02  1 . 8522019E-08 

1.8995389E-04  - 7 . 5997146E-09  1 . 7127387E-02 

-4.4405821E-09  4 . 3533192E-04  -3 . 9832599E-09 

3.5885754E-03  -2 . 2523543E-09  6 . 7295892E-05 

-4.3239606E-10  5 . 4625032E-04  -3 . 9757711E-10 

-3.7039332E-05  -2. 1270107E-10  - 5 . 0880027E-04 
1.1067427E-10  7 . 2398361E-05  8 . 7663113E- 11 

-6.8517540E-05  2 . 5702832E-11  -4 . 8604950E-05 

1.1200884E-11  7.9579927E-02  4 . 5247823E-03 

-3.5268333E-02  -4 .0534448E-02  -4.4753395E-02 
-2.6182691E-02  -3 . 7317555E-03  -8.0651970E-04 

-1.5107879E-02  2 . 5142090E-02  -9 . 7642224E-03 
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FIGURE  5.5-2  (CONTINUE) 


1.9316953E-02  - 
2.3168059E-02 
0 . OOOOOOOE+00 
-1.0406170E-02 
0 . OOOOOOOE+00  - 
-4.4336440E-03 
0 . OOOOOOOE+00 
-0.9995413 
0 . OOOOOOOE+00  - 
3.2189745E-02  - 
1.1111570E-04  - 
-9.0458356E-03 
-1.3391153E-08 
1.2747332E-02  - 
-3.2596383E-09  - 
7.9328520E-04  - 
4.2119003E-10  - 
1.9595549E-05  - 
-4.6874061E-13  - 
2.5416022E-02  - 
0.2450204 
-1.4394496E-03  - 
1.149131 
1.1075284E-02  - 
-2.3351838E-03 
0.0000000E-^00  - 
-8.3352849E-03 
O.OOOOOOOE+00 
-1.3257822E-02 
0 . OOOOOOOE+00 
-1.000807 
0 . OOOOOOOE+00 
4.7200758E-02  - 
9.5289499E-05  - 
-1.2873369E-02 
-2.1176463E-08 
1.4163221E-02  - 
-4.2003649E-09  - 
-1.8132523E-04 
6.1454464E-10  - 
2.7364616E-05  - 
-2.0341992E-10  - 
2.3085548E-02  - 
0.3441083 
-2.7330697E-03  - 
0.9826022 
4.2365617E-03  - 
-3.716331/fi-02 
0 . OOOOOOOE+00  - 
-6.5886504E-03 
O.OOOOOOOE+00 


9.1699949E-03 

0 . OOOOOOOE+00 

-1.013133 

O.OOOOOOOE+00 

1.8803109E-03 

0 . OOOOOOOE+00 

5.9427641E-04 

O.OOOOOOOE+00 

4.5466528E-04 

4.7548648E-02 

9.4817720E-02 

2.7035753E-08 

1.5372403E-03 

5.4160925E-09 

1.0996135E-04 

3.2879249E-10 

5.1369460E-04 

1.6118525E-11 

6.1993569E-06 

6.2735349E-02 

2.0531975E-02 

6.1726500E-03 

0.1491305 

6.6884416E-03 

0 .  OOOOOOOE-hOO 

0.9634855 

0 . OOOOOOOE+00 

7.4595021E-04 

0 . OOOOOOOE+00 

5.4492075E-03 

0 .  OOOOOOOE-hOO 

3.3323502E-04 

6.5922432E-02 

0.1293276 

3.7158557E-08 

4.8442786E-03 

6.7496124E-09 

1.8684632E-04 

5.9436805E-10 

8.1782357E-04 

3.0873998E-10 

3.8205435E-05 

6.1363548E-02 

2.2130689E-02 

9.2090582E-03 

1.7396268E-02 

4.2757504E-03 

0 . OOOOOOOE+00 

0.9060732 

0 . OOOOOOOE+00 

1.0417535E-02 


O.OOOOOOOE+00 
2.1776550E-02 
0 .  OOOOOOOE-i-00 
5.3424207E-03 
O.OOOOOOOE+00 
-0.9975595 
O.OOOOOOOE+00 
1.3175826E-03 
0 . OOOOOOOE+00 
2.2006668E-03 
4.3713300E-08 
3.4457454E-04 
-9.2404253E-09 
6.7664273E-03 
-3.1677194E-10 
5.4763095E-05 
3.2783812E-10 
3.7522997E-05 
-8.2880326E-12 
-3.5170496E-02 
-4.5227956E-02 

2.3739813E-02 
0 .OOOOOOOE+00 
1.1558891E-02 
0 . 0000000E-*O0 
-3.5877891E-02 
O.OOOOOOOE+00 
-0.9977632 
O.OOOOOOOE-t-OO 
3.6040516E-04 
0 . OOOOOOOE+00 
4.6494445E-03 
5.9973004E-08 
4.4841159E-04 
-1.4937966E-08 
8.6882701E-03 
1.0416350E-09 
2.5100540E-04 
5.4642868E-10 
5.5368326E-04 
-1.5120923E-10 
-3.5177931E-02 
-4.9091969E-02 

7.7120878E-02 
0 .  OOOOOOOE-t-00 
-2.6489655E-03 
0 . OOOOOOOE+00 
-9.1363207E-02 
0 . OOOOOOOE+00 


-1.286983 
0 . OOOOOOOE+00 
-1.2784059E-02 
0 . OOOOOOOE+00 
-5.8251210E-03 
0 . OOOOOOOE+00 
-1.7836202E-03 
0 . OOOOOOOE+00 
-1.000008 
-8.4162131E-03 
-5.5010512E-02 
-1.5556630E-08 
7.8572944E-04 
-4.2513073E-09 
8.6005843E-05 
-1.7059845E-10 
-1.9341638E-05 
-8.9191718E-12 
7.6744169E-02 
-4.0697958E-02 
-5.2862149E-03 

1.0439388E-02 
-1.125390 
0 . OOOOOOOE+00 
-1.5604005E-02 
0. 0000000 E+00 
6.3624722E-04 
0 . OOOOOOOE+00 
-1.8195013E-03 
0 . OOOOOOOE+00 
-1.000337 
-1.1384689E-02 
-7.5543880E-02 
-2.4476087E-08 
9.8024239E-04 
-5.5003064E-09 
-2.4570615E-03 
4.8386645E-10 
-3.8943885E-04 
-2.6878663E-10 
7.2070099E-02 
-4.0920448E-02 
-2.2818651E-03 

-2.0356141E-02 
-0.9054829 
O.OOOOOOOE+00 
-1.0528560E-02 
0 . OOOOOOOE+00 
2.4593284E-02 


O.OOOOOOOE+00 
0.2970188 
0 . OOOOOOOE+00 
-0.9950062 
0 . OOOOOOOE+00 
1.9819738E-04 
0 .  OOOOOOOE-hOO 
7.2361820E-04 
-8.0956489E-02 
9.0854039E-04 
3.5219902E-08 
3.4429930E-02 
-8.1296427E-09 
5.2098563E-04 
-3.2284003E-10 
-9.7209204E-04 
2.5003330E-10 
-6.6533481E-05 
-7.1780756E-04 
-4.4704270E-02 
-2.9505172E-03 

-1.2137624E-02 
O.OOOOOOOE+00 
0.1595692 
0 . OOOOOOOE+00 
-0.9837594 
0 . OOOOOOOE+00 
1.2244676E-03 
0 .  OOOOOOOE-hOO 
1.2688811E-03 
-0.1129456 
1.2915963E-03 
4.8408282E-08 
5.2495953E-02 
-1.2731615E-08 
1.6934223E-03 
8.6356722E-10 
-8.4184058E-04 
4.1352169E-10 
1.5788809E-04 
-9.6396524E-03 
-4.4606462E-02 
-8.3887083E-03 

-1.4243137E-02 
0 . OOOOOOOE+OO 
-3.7753463E-02 
0 . OOOOOOOE+OO 
-0.9869078 
0 . OOOOOOOE+OO 
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FIGURE  5.5-2  (CONTINUE) 


-9.9210320E-03  0 . OOOOOOOE+00 

O.OOOOOOOE+00  9.9671828E-03 
-1.002671  0 . OOOOOOOE+00 

O.OOOOOOOE+00  1.9369608E-03 
6.2569410E-02  -7 . 9283491E-02 
1.5207623E-04  -0.1491351 
-1.6235026E-02  4. 3583558E-08 

-3.1325666E-08  1 . 2264599E-02 

6.5866397E-03  -4 . 9736979E-09 
-3.4428904E-09  4 . 9893584E-05 

-3.7951947E-03  3 . 2604077E-09 

-5.3185900E-10  8 . 2511769E-04 

-2.8612340E-04  -8 . 7782304E-10 
-6.9450229E-10  2 . 8996501E-04 

1.9044768E-02  -5 . 9699316E-02 
0.4198163  1.0755750E-02 

-4.1257502E-03  - 1 . 2179918E-02 
999 


-1.007246  0 . OOOOOOOE+00  1 . 4523084E-03 

O.OOOOOOOE+00  6.0272766E-03  0 . OOOOOOOE+00 

-5.2588726E-03  0 . OOOOOOOE+00  -2 . 8012465E-03 

O.OOOOOOOE+00  -0.9991357  -0.1368254 

9.0393247E-03  -1 . 3128875E-02  1 . 3043333E-03 

7.0079793E-08  -8 . 8539913E-02  5 . 6797507E-08 

5.4878456E-04  -3 . 5917090E- 08  7 . 3430695E-02 

-2.2781908E-08  1 . 0243268E-03  - 1 . 8582393E-08 

6.7125019E-03  -4 . 5034425E-09  3 . 6693932E-03 

4.5531392E-09  -7 .8372760E-03  4 . 1115014E-09 

-7.7260469E-05  2 . 3294098E-09  2 . 2036436E-03 

-3.1916997E-10  -5 . 3184887E-04  -2 . 1207246E-10 
1.1438091E-03  -8 . 3455531E-10  9 . 0125075E-04 

-5.0035526E-10  6 . 5245569E-02  - 2 . 2823405E-02 

-3.5709277E-02  -4 .0989980E-02  -4 .4369735E-02 
-2.5999840E-02  8 . 3293729E-03  -2 . 0982664E-02 
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In  this  sample  run,  Fourier  series  is  to  be  truncated  after  the  seventh  term,  the  solidity  is 
1.18,  the  stagger  angle  ranges  from  0  to  60  degrees  at  a  step  of  15  degrees,  and  the  number 
of  data  points  along  Lhe  chord  is  101.  The  values  of  coordinate  along  the  chord  and  slope  of 
camber  are  listed  in  the  table.  The  maximum  thickness  of  the  blade  is  10.114%  of  the 
chord  length.  Matrices  of  g„,  h„,  B,  and  T  are  listed  at  the  end  of  Table  5.5*2. 

Listed  in  Table  5.5-3  is  the  input  data  file  DSN3I.DAT  which  contains  some  controlling 
parameters.  Input  cards  numbers  2  to  4  keeps  some  controlling  data  for  the  overall 
system.  The  fluid  density,  specified  as  1000  kg/m^  in  the  file,  has  no  effects  in  the  present 
model  if  the  density  is  constant.  The  rotational  speed  is  assumed  to  be  3475  rpm.  The 
maximum  body  radius  of  6.375  inches,  which  is  converted  into  a  value  in  meters  by 
multiplying  with  a  conversion  factor  0.0254,  is  used  as  the  reference  radius.  This  reference 
radius  may  be  set  to  other  convenient  values  instead  of  the  body  radius.  The  multiplication 
factors  and  the  convergence  criteria  \ised  in  this  example  have  been  determined  by  many 
test  runs.  The  iterations  should  converge  as  long  as  the  multiplication  factors  used  in  the 
prediction-correction  process  are  reasonable.  The  number  of  blade  is  11  based  on 
experience.  The  number  of  stations  in  the  rotor  area,  including  leading  edge  and  trailing 
edge,  is  3  in  correspondence  to  the  value  used  in  Program  SCM.  A  flag  is  set  such  that  the 
velocities  and  other  data  along  a  specified  cross-section  of  the  blade  are  obtained  fium  an 
interpolation  process  based  on  the  data  stored  in  the  file  DSN3ZI.DAT. 

According  to  Table  5.5-3,  there  is  only  one  blade  section  to  be  studied.  The  solidity  is 
assumed  to  be  1.18.  The  radius  is  0.08582  meters  at  Station  2. 

The  solidity  mentioned  in  this  study  is  that  defined  in  the  mapped  X-Y  plane.  The  input 
solidity  can  be  initially  guessed  to  be  any  reasonable  value.  On  this  particular  section  of 
the  blade,  it  has  been  tried  with  an  initial  guess  of  1.50  and  0.50.  Both  guesses  resulted  in 
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FIGURE  5.5-3.  DSN3I.DAT,  AN  INPUT  DATA  FILE  TO 
PROGRAM  DSN3  (MIDP) 


(3037-DSN3-0SN3I.DAT)  INPUT  DATA  FILE  FOB  0SN3,  TEST  SEC.  11  24JUN88 

1000.,  3475.,  6.375,  .0254  (2)  DEN,  RPM,  RSTAR,  COHVR 

.5,  1.,  .0,  1.,  .001,  .UOI,  .005,  30,  1  (3)  CONFS,  CQNFC,  CONFSA,  COHFSO,  EPSA,  EPSS,  EPSSO,  MMAX,  I06UG 

11,  1,  3,  1  (4)  NBLAOE,  NSECR,  NSTA,  INTERP 

SEC.  11  AMONG  11  IN  1984  REPORT  (AROUND  SEC.  J-4  AMONG  5  IN  SCM  TEST)  (201) 

1.18  (202)  SIG  (INITIAL  GUESS  WAS  1.50)  (smw  if  initial  guess  is  .50) 

.085820,  2  (211)  RSL,  IRSL 

END  OF  0SN3I.0AT 

SEC.  10  AMONG  11  IN  1984  REPORT  (AROUND  SEC.  J=4  AMONG  5  IN  SCM  TEST)  (201) 

1.23  (202)  SIG  (INITIAL  GUESS  WAS  1.32) 

.083868,  2  (211)  RSL,  IRSL 

END  OF  0SN3I.0AT 

SEC.  9  AMONG  11  IN  1984  REPORT  (AROUND  SEC.  J>4  AMONG  5  IN  SCM  TEST)  (201) 

1.28  (202)  SIG  (INITIAL  GUESS  UAS  1.37) 

.079764,  2  (211)  RSL,  IRSL 

END  OF  DSN3I.DAT 

SEC.  8  AMONG  11  IN  1984  REPORT  (AROUND  SEC.  J>3  AMONG  5  IN  SCM  TEST)  (201) 

1.34  (202)  SIG  (INITIAL  GUESS  UAS  1.38) 

.075825,  2  (211)  RSL,  IRSL 

END  OF  OSN3I.OAT 

SEC.  7  AMONG  11  IN  1984  REPORT  (AROUNO  SEC.  J>3  AMONG  5  IN  SCM  TEST)  (201) 

1.40  (202)  SIG  (INITIAL  GUESS  UAS  1.40) 

.071860,  2  (211)  RSL,  IRSL 

END  OF  0SN3I.0AT 

SEC.  6  AMONG  11  IN  1984  REPORT  (AROUNO  SEC.  J>2  AMONG  5  IN  SCM  TEST)  (201) 

1.50  (202)  SIG  (INITIAL  GUESS  UAS  1.43) 

.067694  ,  2  (211)  RSL,  ‘IRSL 

END  OF  DSN3I.DAT 

SEC.  5  AMONG  11  IN  1984  REPORT  (AROUND  SEC.  J»2  AMONG  5  IN  SCM  TEST)  (201) 


1.69  (202)  SIG  (INITIAL  GUESS  UAS  1.50) 

.062930,  2  (211)  RSL,  IRSL 

END  OF  0SN3I.DAT 


(N.G.,  1.69»1.50  liiiit) 
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a  termination  of  the  computer  run  with  a  message  to  use  better  solidity  values  which  both 
rounded  to  1.18.  The  computation  would  be  carried  out  if  the  internally  computed  solidity, 
based  on  the  chosen  camber  and  incident  angle,  matches  with  the  input  value  within  the 
error  criterion  of  0.005.  In  this  model,  one  run  with  trial  solidity  is  usually  sufficient  to 
find  a  suitable  value  to  be  used.  Note  that  the  input  file  DSN3ZI.DAT  should  be  replaced 
with  the  one  with  corresponding  value  of  solidity. 

Attached  to  the  end  of  Table  5.5-3  are  data  used  to  study  other  sections  in  the  present 
study.  Results  are  depicted  in  the  following  section. 

5.6  RESULTS  OF  SAMPLE  DESIGN 

The  model  is  tested  with  some  blade  sections  as  shown  in  Table  5.5-3.  Results  for  six 
•  sections  Scorn  the  middle  area  to  the  tip  area  of  the  blade  are  presented  here. 

Other  sections  at  the  hub  area  have  solidity  values  much  larger  than  1.5  and  therefore  are 
not  able  to  be  analyzed  in  the  current  version  of  the  model.  The  reason  is  that  this  model 
utilizes  a  multiple  regression  analysis  (Section  4.3.3)  to  find  expressions  of  Cb  (p,  a,  Cli) 
and  0(1  (a,  0^)  based  on  a  set  of  experimental  data  which  has  solidity  values  range  firom  0.5 
to  1.5.  Outside  this  range,  the  extrapolated  result  is  impredictable.  In  order  to  solve  the 
problem  of  high  solidity,  experimental  data  for  the  high  solidity  case  have  to  be  included  in 
the  regression  analysis.  This  is  not  implemented  due  to  the  time  constraint 

Figures  5.6-1  and  5.6-2  depict  the  results  of  peripheral  velocity  and  meridional  velocity 
obtained  fix>m  the  stream-curvature  method.  There  is  no  pre-rotation  and  so  the  peripheral 
velocity  changes  firom  0  at  the  leading  edge  of  the  rotor  to  the  value  at  the  trailing  edge  as 
shown  in  Figure  5.6-1.  The  meridional  velocity  increases  as  the  body  is  contracted. 
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Notice  that,  in  Figures  5.6-1  through  5.6-8,  the  relative  radius  as  the  y-axis  represents  the 
radius  of  the  streamline  at  the  middle  station  of  the  rotor  while  various  data,  even  if  they 
are  those  at  leading  edge  or  trailing  edge,  are  plotted  on  the  x-azis  relative  to  this  radius, 
curves  in  Figure  5.6-2  are  the  velocities  at  the  leading  edge  and  trailing  edge  which  have 
different  radii  for  the  same  streamline,  but,  in  Figure  5.6-2,  they  are  both  represented  by 
the  single  radius  at  the  middle  station  for  that  streamline. 

The  flow  angle  (Figure  5.6-3)  is  determined  as  soon  as  the  flow  diagram  in  X-Y  plan  is 
established.  The  incident  angle  (Figure  5.6-4),  which  depends  on  flow  angle,  solidity, 
and  lift  coefficient,  is  obtained  through  regression  analysis  based  on  experimental  data. 
The  stagger  angle  X  (Figure  5.6-5)  is  simply  the  difference  between  and  a^.  Figure  5.6-6 
shows  the  resultant  solidity  obtained  in  the  mapped  X-Y  plane.  It  ranges  from  1.18  at  the 
tip  to  1.50  before  the  hub  area  is  reached. 

^thout  the  three-dimensional  effects,  the  cascade  lift  coefficient  Ct.m  (Figure  5.6-7),  are 
calculated  based  on  the  linear  cascade  theory  discxissed  in  Section  4.3.2.  Also  shown  in  the 
figure  is  the  cascade  lift  coefficient  which  is  based  on  the  upstream  velocity  w^  rather 
than  the  mean  velocity  w^. 

The  camber  which  could  produce  a  turning  angle  such  that  Cud  or  is  reached  without 
the  three-dimensional  effects  is  shown  in  Figure  5.6-8  as  the  curve  C|,2-  ^^th  the  three- 
dimensional  effects  introduced  as  induced  vortices  and  sources/sinks,  the  required  camber 
to  produce  the  same  turning  angle  is  shown  in  Figure  5.6-8  as  the  curve  €1,3.  The  required 
camber  is  smaller  due  to  the  contraction  of  the  body.  The  differences  reduce  firom  0.20 
(12%)  near  the  hub  area  to  0.11  (8%)  near  the  tip  and  then  suddenly  increased  to  0.21 
(17%)  at  the  tip.  The  reason  for  this  sudden  decrease  of  the  required  camber  at  the  tip  is 
not  investigated  due  to  the  time  constraint  to  finish  this  report. 


INCIDENT  ANGLE,  ALPHA  (1) 


FIGURE  5.6-4.  DISTRIBUTION  OF  INCIDENT  ANGLE,  X  i ,  IN 
DEGREES,  RELATIVE  TO  THE  CHORD  LINE, 
X-Y  PLANE 
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RELATIVE  RADIUS,  Rmb 


52.00  53.00  54.00  55.1 

STAGGER  ANGLE  (DEG) 


FIGURE  5.6-5.  DISTRIBUTION  OF  STAGGER  ANGLE  IN  X-Y  PLANE 
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RELATIVE  RADIUS,  R/Rb 


1 


CAMBER,  Cb 


FIGURE  5.6-8.  DISTRIBUTION  OF  REQUIRED  CAMBER  WITHOUT 
3-D  EFFECTS,  Cbj,  AND  THAT  WHEN  THE  3-D 
EFFECTS  ARE  PRESENTED,  Cb, 
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6.0  CONCLUSIONS  AND  RECOMMENDATIONS 

The  GHR  project  started  in  1985  as  a  three^year  contract  with  the  objective  of  developing  a 
new  pumpjet  design  theory  and  then  a  computer  code  to  satisfy  the  Navy’s  need  to 
accurately  design  pumpjets  for  high  speed  underwater  vehicles.  The  design  method 
available  then  was  based  on  a  one-dimensional  graphic  approach  with  a  simple  correction 
made  for  the  affects  of  proximity  of  adjacent  blades.  The  recent  need  for  design  of  pumpjets 
for  high  speed  underwater  vehicles  make  such  a  method  totally  inappropriate,  having  led 
to  various  hydrodynamic  problems. 

During  the  first  two  years  of  the  .contract  work,  various  methodologies  were  assessed  for 
selecting  a  candidate  method.  It  has  been  decided  then  that  a  quasi-three-dimensional 
piimpjet  design  method  is  used  to  fulfill  the  olqective  of  the  contract,  i.e.,  the  combination 
•  of  a  blade-through  flow  analysis  with  a  blade-to-blade  flow  analysis. 

As  has  been  demonstrated  in  Section  5,  the  pumpjet  design  procedure  starts  with  the 
selection  of  the  underwater  vehicle  geometry  and  its  goal  speed,  the  flow  pattern  and 
velocity  profile  should  then  be  obtained  within  by  using  an  axisymmetric  turbulent 
boundary  design  layer  theory  or  by  an  experiment.  The  propulsive  efficiency  is 
approximately  calculated  by  using  a  straight-forward  momentum  theory  with  an  optimtim 
shroud  opening  diameter  also  determined.  Once  the  shroud  opening  diameter  as  well  as 
the  overall  profile  shape  are  chosen,  the  blade-through  flow  without  (i.e.,  in  this  use  the 
streamline  curvature  method)  is  used  to  determine  the  streamline  tube  and  velocity  profile 
at  the  rotor  section. 
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The  streamline  information  obtained  above  will  become  the  key  data  for  the  rest  of  design 
procedure.  A  contracting  stream  tube  which  represents  a  design  section  of  the  blade  is 
mapped  into  a  two-dimensional  plane  where  an  equivalent  two-dimensional  cascade  flow 
diagram  is  established.  It  should  be  noted  that  the  use  of  the  equivalent  flow  diagram  is 
made  carefully  without  violating  the  circulation  law;  the  mass  conservation  equivalent  is 
violated  (or  not  accurately  maintained)  hut  the  circulation  of  the  flow  is  maintained  exactly. 
In  order  to  compensate  for  such  an  approximate  approach  (i  e.,  use  of  two-dimensional  flow 
approach  for  design  of  a  pumpjet  in  the  three-dimensional  configuration,  the  source/sink 
and  vortex  are  distributed  along  the  row  of  cascade  blades  and  thus  the  blade  camber  is 
corrected.  The  cascade  theory  of  Mellor  is  oised  in  the  present  anal3rsis  with  the  corrections 
made  by  utilizing  experimental  data.  In  order  to  facilitate  the  design  method  with  the 
latter  assurance,  NACA  65  blade  profile  series  are  used  in  the  present  computer  code. 

•  An  iterative  method  is  required  to  determine  the  blade  profile  shape  in  this  design  method 

of  highly  nonlinear  nature.  Once  the  blade  thickness  is  determined  the  streamline 
ciuvature  method  should  be  used  again  to  correct  the  flow  velocity  and  streamline  tube 
configuration  due  to  this  blockage  effect  After  this  blockage  correction  on  the  flow  velocity 
is  made,  the  camber  correction  is  repeated.  As  noticed  by  now  and  explained  in  Sections  4 
and  5,  there  exists  two  iterative  loops,  i.e.,  camber  correction  loop  and  flow  velocity 
correction  loop.  These  iterative  loops  are  repeated  until  the  convergent  solution  is 
obtained. 

A  sample  design  case  has  been  run  by  using  the  computer  code  developed  herein  and  the 
procedure  has  been  described  in  Section  5. 

Due  to  the  limited  time  available,  only  the  camber  iteration  loop  has  been  used  and  seemed 
stable  firom  the  viewpoint  of  the  camber  determination.  However,  for  exactly  the  same 


-131- 


reason  as  above,  many  aspects  have  not  been  tested  nor  incorporated  into  the  computer 
code.  Table  6-1  provides  such  aspects  not  tested  or  iinincorporated  together  with  the 
impact  of  each  aspect  on  the  designed  pumpjet  blade. 

As  seen  from  Table  6-1,  the  computer  code  developed  herein  is  still  at  the  stage  of 
development  and  testing  of  the  detailed  aspects.  All  the  theoretical  bases  for  those  aspects 
have  been  developed  and  ready  to  be  incorporated  into  the  code.  Unfortunately,  due  to  the 
limited  timeframe,  the  items  and  aspects  stated  in  Table  6.1  are  yet  to  be  incorporated  and 
tested  in  order  to  make  the  present  computer  code  usable  and  reliable.  Althoui^  it  may 
not  take  an  enormous  amount  of  time  to  incorporate  each  item  described  above,  careful 
handling  of  such  item  is  necessary  since  a  slight  mistake  or  mishandling  may  lead  to  a 
fatal  error  in  the  outcome  of  computer  code.  )^th  such  cautions  in  mind,  the  present 
theory  computer  code  should  be  used. 
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VARIOUS  ITEMS  NOT  TESTED  OR  INCORPORATED  INTO  THE  COMPUTER  CODE  AND  THEIR 

IMPACTS  ON  THE  DESIGNED  PUMPJET  BLADE 
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APPENDIX  A 


A  BRIEF  DESCRIPTION  OF  COMPUTER  CODES 

Four  independent  but  related  computer  pn^p'ams  are  used  in  this  study.  They  are  named 
SCM,  RIS,  MELLOR,  and  DSN3. 

The  principal  program  is  the  main  integration  design  program  (MIDP)  which  is  named 
DSNS  in  the  computer  code.  Programs  SCM  and  MELLOR  are  \ised  to  prepare  data  for 
DSNS.  Program  RIS  is  used  to  prepare  data  for  MELLOR 

The  stream  curvatiue  method  (Sec.  4.2)  is  used  in  Program  SCM  to  determine  streamline 
pattern  and  then  calculate  velocities  and  other  parameters  along  any  streamline.  Non- 
uniform  inflow  condition  is  allowed  at  the  upstream.  The  input  data  is  provided  by 
SCMI.DAT.  The  output  file  DSNSIZ.DAT  serves  to  input  data  to  Program  DSNS.  The 
computer  code  SCM  is  listed  in  Appendix  B.l.  Sample  input  and  output  data  are  discussed 
in  Section  5.S. 

A  small  progreun  RIS  is  designed  to  prepare  the  cascade  influence  functions  R  and  I 
(Mellor,  1959)  which  are  required  in  Program  Mellor.  Illfith  a  suitable  range  of  solidity  and 
stagger  angle.  Program  RIS  is  needed  only  once  for  many  computer  runs  of  Program 
MELLOR  Program  RIS  is  listed  in  Appendix  B.2  with  input  data  listed  in  Table  5.4.1. 

Program  Mellor,  which  is  listed  in  Appendix  B.S,  prepared  several  tables  of  functions 
required  in  the  linear  cascade  theory  which  is  discussed  in  Section  4.S.2.  The  input  data 
include  RI.DAT,  BLADE.DAT,  and  MELI.DAT,  as  shown  in  Tables  5.4.2,  5.4.3,  and  5.4.4. 
The  output  MELO10.DAT  is  to  be  used  by  Program  DSNS. 
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Program  DSN3  (MIDP)  is  the  essential  part  of  this  study.  The  code  is  listed  in  Appendix 
B.4.  The  main  flow  chart  is  depicted  in  Figiire  4.27,  while  some  detailed  flow  charts  are 
shown  in  Figures  4.28  to  4.32.  Based  on  the  velocity  distributions  obtained  flom  Program 
SCM,  the  velocity  diagram  on  the  mapped  X-Y  plane  is  constructed.  From  the  turning 
angle  shown  in  the  velocity  diagram,  the  cascade  lift  coefSdent  is  determined  and  then  the 
camber  which  could  produce  this  lift  coefficient  is  found  firom  a  relationship  based  on 
experimental  data.  Finally,  three*dimensional  effects  are  simulated  by  induced  vortices 
and  sources/sinks,  and  then  camber  is  adjusted  to  produce  the  original  turning  angle  which 
has  a  one-to-one  relationship  with  the  required  lift  coefficient. 
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APPENDECB 


LISTING  OF  COMPUTER  CODES 


B.l  PROGRAM  SCM 


Provided  in  this  section  is  a  listing  of  the  computer  program  SCM  and  the  following 
subroutines: 


AKIMAI 

AKIMAO 

BCMUN 

ENTHAL 

INTSPL 

MLINE 

NUF 

NUFLOW 

QHIRSH 

QRZ 

SOLOUT 
SPLIN3 
and  SPLINE. 
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16-Jun-1988  13:42:12  VAX  FORTRAN  V4.0-2 

16-Jun-1988  13:41:53  OUAO: [CHIANG.3037.SCM]SCMM.FOR;29 


P 


0001  C  (3037*SO(}  (V3.1)  STREAM  CURVATURE  METHOD 

0002  C  CALCULATING  VEL.  DISTRIBUTIONS  AFTER  ADJUSTING  STREAMLINES 

0003  C  V2.1  •  A  RUNNING  VERSION  BASED  ON  INOUE'S  LISTING.  060EC8S  ^ 

0004  C  V2.2  -  VAX  VERSION  OF  VERSION  2.1,  080EC85 

0005  C  V2.3  -  PREPARING  FOR  NON-UNIFORM  INFLOW  COMPUTATIONS.  20DECS5 

0006  C  V2.4  -  KICK  A  SMALL  BUG  OUT  FROM  VS.  2.3,  08JAN86 

0007  C  V2.S  -  IN  QHIRTH,  DEFINE  AREAH(I),  THEN  USE  CM(1.1)sG/(AREAH(I )*2*DEFREF) 
0008  C  INSTEAD  OF  CM(I ,1)>G/(2*PI*RAV*Q(I ,NM).0ENREF),  21JAN86 

0009  C  V2.6  -  USE  CM(I ,  J)4G<  J)/(AREA(I ,  J)*DENREF)  IN  OHIRTH,  22JAN86; 

0010  C  INCLUDE  SUB.  "NUFLOW,"  07MAY86 

0011  C  V2.7  -  Q  CALCULATED  FROM  R  t  RUHRQ,  ASSUMING  STRAIGHT  0-LINES,  INSTEAD 
0012  C  OF  INPUT,  19MAY86 

0013  C  V3.0  -  ALLOW  NON-UNIFORM  INFLOW,  10JUN86;  TOUCHED  21JULS6 
0014  C  V3.1  -  ADDED  OPTION  TO  OUTPUT  RESULTS  FOR  (3037-OSN3),  190CT87; 

0015  C  TOUCHED  UJUH88 

0016 

0017  C  REQUIRES  SUBS.  AKIMAI,  AKIHAO,  BCMLIN,  ENTHAL,  INTSPL,  MLINE,  NUF, 

0018  C  NUFLOW,  OHIRSH,  ORZ,  SOLOUT,  SPLIN3,  &  SPLINE 

0019  C  REFERENCES  BBFLOW,  OATOUT,  FORSDATE  T  DS,  FORSOPEN.  NUFLOW,  OHIRSH,  & 

0020  C  SOLOUT. 

0021  C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2. 

0022 

0023  C  IBFLOW  >  -2  IF  G,  CM(*).  t  R(*)  ARE  INPUT  DATA; 

0024  C  3  -1  FOR  NONUNIFORM  (OR  UNIFORM)  INFLOW...  CALC.  G,  CM(*),  S 

0025  C  R(*)  INTERNALLY 

0026  C  =  0  FOR  UNIFORM  INFLOW; 

0027  C  =  1  IF  DATA  AVAILABLE  FROM  BLADE  TO  BLADE  CALCULATIONS. 

0028  C  10SN3  =  0  FOR  NO  SPECIAL  ACTION; 

0029  C  =  1  FOR  WRITING  RESULTS  INTO  FILE  DSN3ZI.0AT  TO  BE  USED  BY 

0030  C  (3037-0SN3) 

0031  C  LG  =  0  FOR  SEA  WATER  (0EN=102S  KG/CU.  M.); 

0032  C  >  1  FOR  PURE  WATER  (DEN=1000); 

0033  C  =  2  FOR  GAS. 

0034 

0035  CHARACTER  VS*5,  T00AY*9 

0036 

•  0037  OATA  VS/'3.1'/ 

0038 

0039  C  AMONG  B(BBFLOW),  OAT(DATOUT),  DEN(DENSI),  E(ENTHAL),  NUF,  NUFLOW, 

0040  C  OH(QHIRSH).  ORZ.  &  SCSOLOUT): 


0041 

C 

COMMON/DESIGN/! 

B,  DAT, 

S) 

0042 

C 

COMMON/GASCON/! 

B.  DAT,  DEN, 

S) 

0043 

C 

COMMON/LOAD/ 

( 

B,  DAT. 

S) 

0044 

C 

COMMON/MFLOW/ 

( 

B,  OAT,  E,  NUF, 

NUFLOW, 

OH, 

S) 

0045 

C 

COMMON/ML  IN/ 

( 

B,  OAT,  E,  NUF, 

NUFLOW, 

OH. 

S) 

0046 

c 

COMMON/NONAXI/( 

B,  DAT. 

NUFLOW, 

OH, 

S) 

0047 

c 

COMMON/QLIN/ 

( 

B,  DAT,  E,  NUF, 

NUFLOW, 

OH, 

S) 

0048 

c 

COMMON/ROTO/ 

( 

B,  OAT, 

S) 

0049 

c 

COMMON/SCROLL/( 

OAT, 

S) 

0050 

c 

COMMON/STAN/ 

( 

OAT, 

S) 

0051 

c 

COMMON /XY/ 

( 

B,  DAT,  NUF, 

NUFLOW, 

OH, 

S) 

0052 

0053 

c 

COMMON/ 10/ 

( 

B, 

NUFLOW, 

OH 

) 

0054 

c 

COMMON/ IQS/ 

( 

B, 

NUFLOW, 

OH, 

S) 

0055 

c 

COMMON/NU/ 

( 

B,  NUF, 

NUFLOW, 

ORZ 

) 

0056 

c 

COMMON/OS/ 

( 

OH, 

S) 

0057 

0058 

IN  >5 

0059 

0060  C  OPEN  (  2,  FILEs'OSNSZI',  STATUS^'NEW' ). . .  in  SOLOUT 

0061  OPEN  <  IN,  FILE='SCMI',  STATUS='OLO' ) 

0062  OPEN  {  6,  FILE*'SCMO',  STATUS»'HEW' ) 

0063  C  OPEN  (  8,  FILE-'SCMJ',  STATUS>'NEU' ). . .  in  NUFLOW 

0064 

0065  CALL  DATE  (TODAY) 

0066 

0067  WRITE(6,110)  VS,  TODAY 

0068  110  FORMAT('  OUTPUT  FROM  SCM.FOR,  VERSION  ' ,A5,17XA9//) 

0069 

0070  READ  (IN,*)  IBFLOW,  I0SN3,  LG  READO 

0071  WRITE(6,120)  IBFLOW,  IDSN3,  LG 

0072  120  FORMAT!'  IBFLOW  »'I3/'  I0SN3  *'I3/'  LG  ='I3) 

0073 

0074  IF  (IBFLOW.EO.10)  THEM 

0075 

0076  CALL  BBFLOW!  IN)  -B-2- 

0077 


CALL  DATOUT(IBFLOW) 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 


ELSE 

CALL  NUFLOUC  IBFLOU,  I0SN3,  IN,  LG) 
END  IF 

CALL  OHIRSHC  IBFLOU,  LG) 

CALL  SOLOUT(  I0SN3,  IBFLOU,  LG.  TODAY) 

URITE(6,900) 

900  F0«MAT(/////'  ***EN0  OF  OUTPUT***') 

STOP  'Done...' 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCODE 

259 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1  SPOATA 

128 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

200 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

587 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  SCMMSMAIN 

VARIABLES 


Address  Type  Name  Attributes  References 


2-00000014 

1*4 

IBFLOU 

70* 

71 

74 

784 

82A 

2-00000018 

1*4 

I0SN3 

70= 

71 

82A 

88A 

2-00000010 

1*4 

IN 

58= 

61A 

70 

76A 

82A 

2-0000001C 

1*4 

LG 

70= 

71 

82A 

86A 

88A 

2-00000005 

CHAR 

TODAY 

35 

65A 

67 

88A 

2-00000000 

CHAR 

VS 

35 

37D 

67 

LABELS 

Address 

Label 

References 

1-00000011 

110' 

67 

68# 

1-0000003A 

120' 

71 

72# 

1-00000064 

900' 

90 

91# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type  Name 


References 


B8FLOU 

OATOUT 

FORSOATE  T_0S 

forsopen”  ” 

NUFLOU 


76 

78 

65 

61  62 
82 


OHIRSH 

SOLOUT 


86 

88 


o  o  o  r>  o  o 


16-Jun-198a  11:06:33  VAX  FORTRAN  V4.0-2  P 

21-Oct-1987  10:59:39  DUAO: [CHIANG.3037.SCM]SCMOTHER.FOR;22 

C 

C+++++++++  SUBROUTINE  AKIMAI  ♦♦+++♦+♦+ 

C 

SUBROUTINE  AKIMAI (X.Y.N.XI ,NI ,YI ,Y1 I ,U,NU, ICON) 

C  INPUT  N,  NI,  NU,  X{»),  XI{*),  &  Y(*) 

C  OUTPUT  ICON,  U(*),  YI(*),  &  YIU*) 

C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 
C  TOUCHED  30MAY86 

DIMENSION  X(N),Y(N).XI(NI),YUNI),Y1I(NI),U(NU) 

IF  (  NW.LT.(M+N+3)  )  THEM 
PRINT  *,  'NW.LT.N+3...',  NU,  N 
STOP  'AKIMAI. 5' 

ICON  =-1 
GOTO  999 
END  IF 


DO  1=2, N 

IF  (  X(I-1).GE.X<I)  )  THEN 
PRINT  *,  'X<I-1).GE.X{n',  I,  X<1-1),  X(I) 

IF  (N.LE.50)  PRINT  *,  (  X<K),  K=1,M) 

STOP  'AKIMAI. 15' 

C  ICON  =1 

END  IF 
END  DO 

NUM=NU/2*2 
DO  20  1=1, N-1 
K=I+2 

20  U(K)=(Y(I+1)-Y(I))/(X<I+1)-X(I)) 

W<2)=2.*U<3)-U(4) 

WC1)=2.*W(2)-W(3) 

U<N+2)=2.*U(N+1)-U(N) 

U<N*3)»2.*W(N+2)-W(N*1) 

DO  30  1=1, N 
K=I*2 

AM21=A8S(W<K-1)-U(K-2)} 

AM43=ABS(W(K'''1}-W(K)) 

AM=AM21'»AM43 

IF(AM,LT.1.0E-5)  GO  TO  31 
W(N«4+I )*(AM43*U(K-1 )*AM21*U(K))/AM 
GO  TO  30 

31  W(NUtHI)=(W<K-1)+W<K))/2. 

30  CONTINUE 

DO  40  J=1,NI 

IF(XI(J).GT.X(N))  GO  TO  100 
IF(X(1)-XI(J))  42,41,100 

41  YI(J)=Y(1) 

Y1I(J)=U<NUM+1) 

GO  TO  40 

42  00  45  1=2, N 
IF(X(I)-XI(J))  45,46,47 

46  YI<J)=Y(I) 

Y1I<J)=W<NUM+I) 

GO  TO  40 

47  K=I-H 
P0=Y(I-1) 

P1=W<NWFH-I-1) 

P2»(3.*U(K)-2.*W<NWM*I-1)-U(MUH*I))/(X(I)'X(I-1)) 

P3=(W(NWM*I-1)+W{NWM*I)-2.*W(K))/(X{I)-X(I-1))**2 

DX=XI(J)-X(I-1) 

Y I ( J ) =P0+0X*  <  P 1 +0X* ( P2+0X*P3 ) ) 

Y 1 1 ( J )=P I ♦OX* ( 2 . *P2+0X*3 . *P3 ) 

GO  TO  40 
45  CONTINUE 

100  PRINT  *,  'XUI).GT.XI(J)  .OR.  XI  ( J  )  .GT  .X(M)' , 

♦  XI(1),  XUJ),  J,  X(N),  N 

STOP  'AKIMAI. 1100' 

C  ICOM=ICON+10 

40  CONTINUE 

ICON=0 

C  999  RETURN 
RETURN 
END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

1544 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1  SPOATA 

67 

PIC  CON  REL 

LCL 

SNR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

296 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

1907 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  AKIMAI  4« 

VARIABLES 


Address  Type  Name  Attributes  References 


** 

R*4 

AH 

41* 

42 

43 

** 

R*4 

AM21 

39= 

41 

43 

** 

R*4 

AM43 

40* 

41 

43 

*«r 

R*4 

DX 

63* 

64(3) 

65(2) 

** 

1*4 

I 

20= 

21(2) 

22(3) 

30= 

31 

32(4) 

37= 

38 

43 

45 

53= 

54 

55 

56 

58 

59 

60 

61(4) 

62(4) 

63 

AP-OOOQO028a 

1*4 

ICON 

4 

73= 

2-OOOOOOOC 

1*4 

47= 

48 

49 

50 

51 

54 

55 

56 

63 

64 

65 

68(2) 

** 

1*4 

K 

23(2)* 

31  = 

32 

38= 

39(2) 

40(2) 

43(2) 

45(2) 

58* 

61 

62 

Ap-oooooooca 

1*4 

N 

4 

11(2) 

20 

23(2) 

30 

35(3) 

36(3) 

37 

48 

53 

68(2) 

AP-OOOQOOUa 

1*4 

NI 

4 

11(3) 

47 

AP-000QOO24a 

1*4 

NW 

4 

11 

29 

1*4 

NUH 

29* 

43 

45 

51 

56 

60 

61(2) 

62(2} 

R*4 

PO 

59* 

64 

*« 

R*4 

Pi 

60* 

64 

65 

*« 

R*4 

P2 

61  = 

64 

65 

*« 

R*4 

P3 

62= 

64 

65 

ARRAYS 

Address  Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

AP- 000000209  R*4 

U 

** 

(*) 

4 

11 

32= 

33(3)* 

34(3)= 

35(3)= 

36(3)= 

39(2) 

40(2) 

43(3)= 

45(3)= 

51 

56 

60 

61(3) 

62(3) 

AP- 000000049  R*4 

X 

** 

(•) 

4 

11 

21(2) 

22(2) 

23 

32(2) 

48 

49 

54 

61(2) 

62(2) 

63 

68 

AP-000000109  R*4 

XI 

(*) 

4 

11 

48 

49 

54 

63 

68(2) 

AP- 000000089  R*4 

Y 

** 

(*) 

4 

11 

32(2) 

50 

55 

59 

AP-0000001C9  R*4 

YII 

*'* 

(*) 

4 

11 

51* 

56= 

65* 

AP-000000189  R*4 

YI 

{*) 

4 

11 

50* 

55* 

64* 

LABELS 

Address 

Label 

References 

** 

20 

30 

32# 

0-00000340 

30 

37 

44 

46# 

0-0000030C 

31 

42 

45# 

0-000005 7D 

40 

47 

52 

57 

66 

72# 

** 

41 

49 

50# 

-B-6- 

67# 


0-000O03E0 

42 

49 

53# 

0-00000588 

45 

53 

54 

** 

46 

54 

55# 

0-00000458 

47 

54 

58# 

0-0000058F 

100 

48 

49 

68# 


-B-6- 


16-Jun-1988  11:06:33  VAX  FORTRAN  V4.0-2  P 

21-0ct-1987  10:59:39  OUAO: [CHIANG.3037.SCM1SCMOTHER.FOR;22 


0001 

C 

0002 

SUBROUTINE  AXIMAO 

0003 

C 

0004 

0005 

SUBROUTINE  AKIMAO(X,Y,N,Yl ,Y2,U,NW, ICON) 

0006 

C  INPUT 

N,  NU,  X(*),  &  Y(*);  OUTPUT  ICON.  U(»),  Y1(*; 

0007 

C  TO  BE 

CONPILEO  BY  VAX  FORTRAN  V4.0-2 

0008 

0009 

C  TOUCHED  10JUN86 

0010 

DIMENSION  X(N),Y(N),Y1(N),Y2(N),U(NU) 

0011 

0012 

C 

IF  (  NW.LT.(N'F3}  )  THEN 

0013 

C 

PRINT  »,  'NW.LT.N^3...',  NW,  N 

0014 

C 

STOP  'AKIHA0.5' 

0015 

C 

ICON  »-1 

0016 

C 

GOTO  999 

0017 

0018 

C 

END  IF 

0019 

DO  1=2, N 

0020 

IF  (  X(I-1).GE.X(I)  )  THEN 

0021 

PRINT  *,  'X(I-1).GE.X<I)',  I,  X(I-1),  X(I) 

0022 

IF  (N.LE.50)  PRINT  *,  (  X(K).  K*1.N) 

0023 

ICON  =1 

0024 

GOTO  999 

0025 

END  IF 

0026 

0027 

ENO  DO 

0028 

DO  20  t=1,N-1 

0029 

K=I+2 

0030 

20 

W<K)*<Y(I-H)-Y{n)/(X(I*1)-X(I)) 

0031 

U(2)«2.*W<3)-U<4) 

0032 

W(1)=2.*U(2)-U(3) 

0033 

U(N>2)=2.*W(N'r1)-U(N) 

0034 

W(N*3)«2.*W<N*2)-U<N*1) 

0035 

DO  30  1*1, N 

0036 

X*I+2 

0037 

AM21»ABS(W(K-1)-W(K-2)) 

0038 

AM43*ABS(W(K'»1)-U(K)) 

0039 

AM«AM2UAM43 

0040 

IF(AM.LT.1.0E-5)  GO  TO  31 

0041 

Y1  ( I  )«<AM43*W(K- 1  )-»AM21*W<K)  )/AM 

0042 

GO  TO  30 

0043 

31 

Y1(I)*(W(IC-1)+W(IC))/2, 

0044 

30 

CONTINUE 

0045 

DO  40  1*1, N 

0046 

Y2(I)*0.0 

0047 

K*I+2 

0048 

IF(I.NE.I)  Y2(I)*2.*(Y1(I-1)+2.*YUI)-3.*U(K 

0049 

IF(I.NE.N)  Y2(I}*Y2<I) 

0050 

♦ 

♦2.*(3.*W{K)-2.*Y1(I)-Y1(I+ 

0051 

40 

CONTINUE 

0052 

00  45  1*2, N-1 

0053 

45 

Y2(I)*Y2{I)/2. 

0054 

IC0N*0 

0055 

999 

RETURN 

0056 

END 

PROGRAH 

SECTIONS 

Name 

0  SCOOE 

1  SPOATA 

2  $LOCAL 

Total  Space  Allocated 


Bytes 

Attributes 

1079 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

14 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

228 

1321 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

ENTRY  POINTS 

Address  Type  Name 
0-00000000  AKIM AO 


References 

4« 


VARIABLES 


-B.7- 


Addrts*  Type  Name 


Attributes  References 


*•  R*4 

AM 

39» 

40 

41 

•*  |,*4 

AM21 

37= 

39 

41 

**  R*4 

AH4S 

3«= 

39 

41 

*•  1*4 

I 

19= 

20(2) 

21(3) 

28= 

29 

30(4) 

35= 

36 

41 

53(2) 

43 

45= 

46 

47 

48(6) 

49(7) 

52= 

AP-000000208  1*4 

ICON 

4 

23= 

tl 

**  1*4 

K 

22(2)= 

29= 

30 

36= 

37(2) 

38(2) 

41(2) 

43(2) 

47= 

48 

49 

AP-OOOOOOOCa  1*4 

N 

4 

10(4) 

19 

22(2) 

28 

33(3) 

34(3) 

35 

45 

49 

52 

AP-0000001ca  1*4 

NU 

4 

10 

ARRAYS 


Address  Type  Name  Attributes  Bytes  Dimensions  References 


AP- 0000001 83  R*4 

U 

** 

(*) 

4 

10 

30= 

31(3)= 

32(3)= 

33(3)= 

34(3)= 

37(2) 

38(2) 

41(2) 

43(2) 

48 

49 

AP-00000004a  R*4 

X 

*« 

(*) 

4 

10 

20(2) 

21(2) 

22 

30(2) 

48(2) 

49(2) 

AP- 000000083  R*4 

Y 

*« 

(*) 

4 

10 

30(2) 

AP-000000103  R*4 

Y1 

•* 

(*) 

4 

49(2) 

10 

41  = 

4X= 

48(2) 

AP-000000143  R*4 

Y2 

** 

(*) 

4 

53(2)= 

10 

46= 

46= 

49(2)= 

LABELS 


Address 

Label 

References 

*• 

20 

28 

30# 

0-0000030A 

30 

35 

42 

0-0000020C 

31 

40 

43# 

•* 

40 

45 

S1« 

«« 

45 

52 

53# 

0-OOOOOA36  999 


24 


55# 


16-Jun-1988  11:06:33  VAX  fORTRAN  V4.0-2  P 

21-Oct-1987  10:59:39  OUAO: [CH1ANG.3037.SCM]SCMOTHER.FOR;22 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 


C 

SUBROUTINE  BCMLIN 
C 

SUBROUTINE  BCHLINCNQ.NM.Q.PHIR.CUR) 

C  INPUT  CUR(»),  NM.  NO,  &  PHIR(*),  0(*);  OUTPUT  CUR{*).  &  PHIR(*) 
C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 
C  TOUCHED  10JUN86 

PARAMETER  (  NOMX«14) 

DIMENSION  CURCNQMX.NM),  PHIR(NQMX,NM}.  Q(NCIMX,NM) 

DO  10  Is1,NO,Na-1 
DO  10  J<i2,NM-1 

PHIR(I,J)=PHIR{I.1)+(PHIR(I,NM)-PHIR(I,1))/Q<I,NM)»0(I,J) 

CUR<I,J)=CUR(I,1)*(CUR<I,NM)-CUR<I.1))/Q(I,NM)*0(I.J) 

10  CONTINUE 
RETURN 
END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

380 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

2  SLOCAL 

168 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

548 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  BCMLIN  4# 


VARIABLES 


Address  Type  Name  Attributes  References 


** 

1*4 

I 

14= 

16<6) 

17(6) 

1*4 

J 

15= 

16(2) 

17(2) 

AP- 00000008a 

1*4 

NM 

4 

12<3) 

15 

16(2) 

17(2) 

AP-ooooooo4a 

1*4 

NO 

4 

14(2) 

ARRAYS 


Address  Type  Name  Attributes  Bytes 

AP-00000014a  R»4  CUR  *• 
AP- 0000001 Oa  R*4  PHIR  •* 
AP-OOOOOOOCa  R*4  0  •* 


Dimensions  References 


(H.  *) 

4 

12 

17(4)= 

(H,  *) 

4 

12 

16(4)= 

(14,  *) 

4 

12 

16(2) 

17(2) 

PARAMETER  CONSTANTS 
Type  Name 
1*4  NOMX 


References 

10#  12<3) 


LABELS 

Address  Label 
•*  10 


References 

14  15  18# 


-B-9- 


9-Jun-1986  14:47:57  OUAO: [CHIANG. 3037. SCM3ENTHAL. FOR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


C 

c*********  SUBROUTINE  ENTHAL  ♦♦♦♦♦♦♦♦♦ 

C 

SUBROUTINE  ENTHAL<  CPT,  NQI1.  NOIB,  PNO.  VO,  V0C>  IN 

C  (3037-ENTHAL)  DETERMINE  ENTHALPY  H 
C  REFERENCED  BY  NUFLOW;  REFERENCES  none 
C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 
C  COOED  BY  U.-L.  CHIANG,  06JUN86;  REVISED  09JUN86 

PARAMETER  (  NMMXx11,  NQMX>14) 

DIMENSION  CPT(NMMX) 

COMMON/MFLOW/  GS(NMMX>,  G,  OMG, 

+  CM(NOMX,NMMX},  CTH(NQMX,NMMX) ,  RCTN(NQMX,NMMX).  HINOMX.NMMX) 

CNOT  +  ,  A(NOMX,NMMX),  DEN(NaMX,NMMX) 

CNOT  *  ,  ENT(NCIMX.MMMX),  OMF(NMMX).  BLO(NQHX,NMMX) 

CNOT  +  ,  DMBLO(NQMX,NMMX} 

CNOT  +  ,  OMRCTH(NQMX.NMMX).  DMCM<NOMX.NMMX).  UTH(NOMX,NMMX) 

COMMON/MLIN/  NM.  R(NOMX,NMMX) 

CNOT  *  ,  PHIRCNOMX.NMMX),  CURCNOMX.NNMX),  SM<MONX,NMMX),  ZINOMX.NMMX) 

COMMON/OLIN/  RUMRO(NaMX),  NO 

CNOT  *  ,  0(N0NX,NMNX},  RUMR(NOMX,NMMX} 

CNPT  +  ,  ZOH(NQMX),  ZOSINOMX),  NOI,  NOB 

WRITE(6,*)  'VO,  VOC,  PHO  *  ',  VO,  VOC,  PHO 
V0SO5  =VO*VO*VOC*VOC*.5 

PHO  =PH0*9.8062 

DO  J-1,NM 

TEM  *CPT(J)»V0SO5+PH0 

DO  1=1, NO 

H(I,J)*TEM 
END  DO 

DO  I=NOI1,NOIB 

H(I,J)=CTH<I,J)*R<I,J)*OMG>TEM 
END  DO 
END  DO 
RETURN 
ENO 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0 

SCOOE 

290 

PIC  COM  REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

1 

SPOATA 

15 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2 

SLOCAL 

28 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

3 

MFLOU 

2516 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

4 

MLIN 

620 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

5 

OLIN 

60 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated 

3529 

ENTRY  POINTS 


Address  Type 

Name 

References 

0-00000000 

ENTHAL 

4# 

VARIABLES 

Address 

lype 

Name 

Attributes 

References 

3-0000002C 

R*4 

G 

COMM 

15 

** 

1*4 

I 

32= 

33 

35= 

36(3) 

** 

1*4 

J 

30= 

31 

33 

36(3) 

4-00000000 

I»4 

NM 

COMM 

21 

30 

5-00000038 

1*4 

NQ 

COMM 

23 

32 

AP- 000000088 

1*4 

NQI1 

4 

35 

AP-oooooooca 

1*4 

NOIB 

4 

35 

3-00000030 

R*4 

OHC 

com 

15 

36 

AP-00000010a  R*4 

PHO 

4 

27 

29(2)= 

31 

*« 

R*4 

TEM 

31= 

33 

36 

28(2) 

28(2) 


AP-0000001Aa  R*4  VO 
AP-00000018S  R*4  VOC 
**  R»4  VOS05 


4  27 

4  27 

28*  31 


ARRAYS 


Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

3-00000034 

R*4 

CM 

COMM 

616 

(14. 

11) 

15 

13 

31 

AP- 000000049  R*4 

CPT 

44 

(11) 

4 

3-0000029C 

R*4 

CTH 

COMM 

616 

(U. 

11) 

15 

36 

3-00000000 

R*4 

GS 

COMM 

U 

(11) 

15 

3-0000076C 

R*4 

H 

COMM 

616 

(14. 

11) 

15 

33* 

36= 

4-00000004 

R*4 

R 

COMM 

616 

(14. 

11) 

21 

36 

3-00000504 

R*4 

RCTH 

COMM 

616 

(14. 

11) 

15 

5-00000000 

R*4 

RUHRQ 

COMM 

56 

(14) 

23 

PARAMETER  CONSTANTS 

Type  Name 

References 

1*4  NMMX 

11# 

13 

15(5) 

21 

1*4  NQMX 

11# 

15(4) 

21 

23 

♦ . . ♦ 

KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argunent,  possibly  nndified 

0  -  Data  Initialization 


j  (n)  •  Number  of  occurrences  on  line  j 

♦ . . 


COMMAND  QUALIFIERS 

F/LiS/CHE/CRO  ENTHAL 

/CHECK>(BOUNOS, OVERFLOW, UNOERFLOU) 

/OEBUG-fNOSYNBOLS, TRACEBACK) 

/STANOAR03(NOSYNTAX,NQSOURCE  FORM) 

/SHOUs( NOPREPROCESSOR , NOI NCLUDE , MAP , NCO I CT I ONARY . S I NGLE ) 

/WARN I NGSs( GENERAL , NOOECLARAT IONS) 

/C0MTIHUATI0NS=>19  /CROSS  REFERENCE  /NOO  LINES  /NOEXTENO_SOURCE  /F77 
/NOG  FLOATING  /I4  /NCMAudll,:  r.0u<;  /OPtTmI7F 


COMPILATION  STATISTICS 


Run  Time; 
Elapsed  Time: 
Page  Faults: 
Dynamic  Memory: 


2.20  seconds 
3.93  seconds 
201 

339  pages 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 


16-Jun-1988  11:06:33 
21 -Oct- 1987  10:59:39 
C 

C++4.++++**  SUBROUTINE  IMTSPL 
C 

SUBROUTINE  INTSPL(X,Y,N,DI ,L,Y1 .Y2,U,NU, ICON) 

REAL  X(N).Y(N).0I(N),L(N),Y1(N).Y2(N),U(NW) 

CALL  SPLINE(X,Y,N,L,Y1,Y2,U,NU,ICON) 

DI(1)=0.0 
DO  10  1=1, N-1 

10  OK  1*1  )=(Y(  1*1  )*Y( I  ))*L(  I  )/2. - (Y2(  1*1  )*Y2( I ))*L( I  )»*3/24. 

RETURN 

END 


VAX  FORTRAN  V4.0-2  P 

OUAO : CCH I ANG .3037. SCM] SCMOTHER . FOR ; 22 


Pr.oGRAM  SECTIONS 


Name 

0  SCOOE 
2  SLOCAL 

Total  Space  Allocated 


Bytes 

Attributes 

396 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

324 

720 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000 

INTSPL 

4# 

VARIABLES 

Address  Type 

Name 

Attributes  References 

**  1*4 

I 

8= 

9(7) 

AP-000000283  1*4 

ICON 

4 

6A 

AP-OOOOOOOCa  1*4 

N 

4 

5(6) 

6A 

AP-00000024S  1*4 

NW 

4 

5 

6A 

ARRAYS 


Address  Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

AP-00000010a  R*4 

01 

•* 

(*) 

4 

5 

7* 

9= 

AP-OOOOOOUa  R*4 

L 

** 

(*) 

4 

5 

6A 

9(2) 

AP- 00000020a  R*4 

U 

** 

(*) 

4 

5 

6A 

AP-00000004a  R*4 

X 

** 

(*) 

4 

5 

6A 

AP-00000008a  R*4 

Y 

** 

(*) 

4 

5 

6A 

9(2) 

AP-00000018a  R*4 

Y1 

** 

(*) 

4 

5 

6A 

AP-OOOOOOIca  R*4 

Y2 

(*) 

4 

5 

6A 

9(2) 

LABELS 


Address  Label  References 

*•  10  8  9# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name  References 


SPLINE 


6 


16-Jin-1988  11:06:33  VAX  FORTRAN  V4.0-2  P 

21-Oct-1987  10:59:39  DUAO: CCHIANG.3037.SCH1SCMOTHER.FOR;22 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 


C 

SUBROUTINE  HLINE  ********* 

C 

SUBROUTINE  MLINE  (  ITRX,  NO,  NM,  RAS.  0.  R.  2,  SN,  PHIR,  CUR,  XN, 

*  ICON.  XI,  X2,  Y1,  Y2) 

C  INPUT  ITRX,  NM,  NO,  R(*).  RAS,  Q(*),  &  Z<*) 

C  OUTPUT  CUR(*),  ICON,  PHIR(*).  SM(*),  X1<*).  X2(*).  XM(*).  Y1(»),  & 

C  Y2(*) 

C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 
C  TOUCHED  10JUN86 

PARAMETER  (  N0<100,  NOMX=14) 

PARAMETER  (  ND4MsND*4-10) 

REAL  XKNO),  X2(NO),  Y1(NO),  Y2(NQ). 

*  DI(ND),  F(ND),  L(ND),  XI(MD),  Y1I<N0),  Y2l(MD),  YI(ND), 

*  DX1MIN(3).  UORX(ND4M}, 

*  CUR(NOMX.NM),  PHIR(NQMX.NM}.  QCNOMX.NM),  R(NOMX.NM), 

*  SM(NQMX,NM),  XM(NQMX.NM),  Z(NQMX,NM) 

DATA  PI /3. 14159265359/ 

RAD45  »PI»45./180. 

DO  2  K=1,3 

THER  =(X-2)*RA045 

CT=COS<THER) 

ST*SIN(THER) 

OX1MIM<K)«ABS(<2(2,2)-Z(1,2))»CT+<R(2,2)-R(1,2))*ST) 

DO  2  I<3,NO 

DX1»ABS<(2{I,2)-Z(I-1,2))*CT*<R(I.2)-R{I-1,2))«ST) 
IF(0X1.LT.0X1MIN(K))  DX1MIN(K)=OX1 
2  CONTINUE 

KMAXal 

OXMAX-OXlMINd) 

DO  4  K«2,3 

JFTDXIMIN/IO.LT.OXMAX)  CO  TO  4 
KMAX^K 

0XMAX«0X1MIN(K) 

4  CONTINUE 

THER  3(KHAX-2)*RA045 
CT»COS<THER) 

ST>SIN(THER) 

DO  10  J«2,HM-1 
DO  20  ia>1,NO 

X1<IO)*Z(IO,J)*CT*R(IO,J)*ST 
X2(IO)»-Z<IQ,J)*ST+R(IO,J)*CT 
20  CONTINUE 

601  CALL  AKIMA0(X1,X2, NO, Y1,Y2, WORK, NQ-^3,  ICON) 

LINE>601 

IF(ICON.NE.O)  GO  TO  9000 
DO  30  I«1,NO 

PHIR(I,J)*ATAN(Y1(I))*THER 
30  CUR(I,J)*-Y2{I)/(1.+Yl(I)**2)»*<3./2.) 

SM(1,J)=0. 

XM(1,J)»0. 

DO  40  I>2,NO 

DX»(X1(I)-X1{I-1))/(N0-1) 

DO  41  II<1,NO 

41  XI(II)»X1(I-1)+OX*(II-1) 

602  CALL  AKIMAI(X1,X2,NO.XI,rtD,YI,Y1I,UORK.2*NQ+3,ICON) 

LINE>602 

IF(ICON.NE.O)  GO  TO  9000 
DO  43  II>1,M) 

43  F(II)«SORT(1.+Y1I(II)**2) 

603  CALL  INTSPL(XI,F,NO,OI,L,Y1I,Y2I,WORK,4*NO-10,ICON) 

LINEs603 

IF(ICON.NE.O)  GO  TO  9000 
»(I,J)»SM(I-1,J) 

DO  45  1 1 >2, NO 

45  SM(I,J)aSM(I,J)+OI(II) 

IF(ITRX.EQ.O)  GO  TO  40 
DO  46  II>1,NO 
RI*XI(II)*ST*YI(II)*'T 

46  F(II)aF(II)*RAS/RI 

604  CALL  INTSPL(XI,F,NO,OI,L,Y1I,Y2I,UORK,4*MO-10,ICON) 

LINE-604 


0078 

IFdCON.NE.O)  GO  TO  9000 

0079 

XM(I.J)sXH(I-1,J) 

0080 

DO  48  IIa2,ND 

0081 

48 

XM(I,J)=XM(I,J)*OI<II) 

0082 

40 

CONTINUE 

0083 

10 

CONTINUE 

0084 

CALL  BCMLIN(NQ,NM,Q,PHIR,CUR) 

0085 

ICON=0 

0086 

999 

RETURN 

0087 

0088 

9000  PRINT  9010.  ICON,  LINE 

0089 

9010 

FORMATC???  ICON  =M7'  AT  LINE 

0090 

STOP  'MLINE. 9000' 

0091 

0092 

611 

FORMAT(//5X, 12) 

0093 

618 

FORMAT(8F10.S) 

0094 

END 

PROGRAM 

SECTIONS 

Name 

Bytes 

Attributes 

0 

SCCOE 

1775 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1 

SPOATA 

65 

PIC  CON  REL 

LCL 

SNR 

NOEXE 

RD 

NOURT 

LONG 

2 

SLOCAL 

5092 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RO 

URT 

LONG 

Total  Space  Allocated 

6932 

ENTRY  POINTS 

Address  Type  Name 
0-00000000  MLINE 

VARIABLES 

Address  Type  Name 


References 

A# 

Attributes  References 


2-00001 lie 

R*4 

CT 

27* 

29 

31 

42* 

46 

47 

74 

*• 

R*4 

OX 

58* 

60 

«« 

R*4 

0X1 

31= 

32(2) 

•* 

R*4 

OXMAX 

35* 

37 

39* 

•« 

1*4 

I 

30= 

31(4) 

52= 

53(2) 

54(3) 

57= 

58(2) 

60 

69(2) 

71(2) 

79(2) 

81(2) 

AP- 00000030a 

1*4 

ICON 

4 

49A 

51 

61A 

63 

66A 

68 

76A 

78 

85= 

88 

** 

1*4 

II 

59= 

60(2) 

64= 

65(2) 

70= 

71 

73* 

74(2) 

75(2) 

80= 

81 

** 

1*4 

IQ 

45= 

46(3) 

47(3) 

AP-00000004a 

1*4 

ITRX 

4 

72 

2-00001124 

1*4 

J 

44= 

46(2) 

47(2) 

53 

54 

55 

56 

69(2) 

71(2) 

79(2) 

81(2) 

** 

1*4 

K 

25= 

26 

29 

32(2) 

36= 

37 

38 

39 

** 

1*4 

KHAX 

34= 

38= 

41 

2-00001130 

1*4 

LINE 

50= 

62= 

67= 

77= 

88 

AP-oooooooca 

1*4 

NM 

4 

16(7) 

44 

84A 

AP-ooooooosa 

1*4 

NO 

4 

16(4) 

30 

45 

49(2)A 

52 

57 

61(2)A 

84A 

2-00001114 

R*4 

PI 

220 

24 

** 

R*4 

RA045 

24* 

26 

41 

AP-ooooooloa 

R*4 

RAS 

4 

75 

*« 

R*4 

RI 

74= 

75 

2-00001120 

R*4 

ST 

28= 

29 

31 

43* 

46 

47 

74 

2-00001118 

R*4 

THER 

26= 

27 

28 

41* 

42 

43 

53 

LRRAYS 

Address  Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

AP- 000000283  R*4 

CUR 

** 

(U,  *) 

4 

16 

54= 

84A 

2-00000000 

R*4 

01 

400 

(100) 

16 

66A 

71 

76A 

81 

2-OOOOOAFO 

R*4 

DX1MIN 

12 

(3) 

16 

29= 

32(2)* 

35 

37 

39 

2-00000190 

R*4 

F 

400 

(100) 

16 

65* 

66A 

75(2)= 

76A 

-B-14- 


F 


2-00000320  R*4  L 

AP- 00000024a  R*4  PH IK 
AP-00000014a  R*4  Q 
AP- 00000018a  R*4  R 

AP-00000020a  R*4  SM 
2-OOOOOAFC  R*4  WORK 

AP- 00000034a  R*4  X1 

AP- 00000038a  R*4  X2 
2-000004BO  R*4  XI 

AP-0000002Ca  R*4  XM 
AP-0000003Ca  R*4  Y1 

2-00000640  R*4  Y1I 
AP- 00000040a  R*4  Y2 
2-00000700  R*4  Y21 
2-00000960  R»4  YI 
AP- 0000001 ca  R*4  2 


PARAMETER  CONSTANTS 


Type 

Name 

1*4 

NO 

1*4 

N04M 

1*4 

NOMX 

LABELS 

Address  Label 


0-v.  3000253 

** 

«• 

** 


2 

4 

10 

20 

30 


0-00000679  40 
41 
43 

45 

46 


*« 

«* 

** 

•* 


*•  48 

**  601 

**  602 

**  603 

•*  604 

*•  611' 

**  618' 

**  999 

0-0000068C  9000 
1-0000Q012  9010' 


FUNCTIONS  ANO  SUBROUTINES  REFERENCED 

Type  Name 

AKIMAI 

AKIMAO 

BCMLIN 

INTSPL 

R*4  HTHSATAN 


400  <100)  16 

**  (14,  •>  4 

••  (14,  •>  4 

*•  (14,  *>  4 

47 

••  (14,  •)  4 

1560  (390)  16 

••  (•)  4 

60 

«*  (•)  4 

400  (100)  16 

76A 

*•  (14,  •)  4 

•*  (*)  ^ 

400  (100)  16 

**  (*)  ^ 

400  (100)  16 

400  (100)  16 


**  (14,  *) 


References 

13« 

14 

16(7) 

70 

73 

76(2) 

14# 

16 

13# 

16(7) 

References 

25 

30 

33# 

36 

37 

40# 

44 

83# 

45 

48# 

52 

54# 

57 

72 

82# 

59 

60# 

64 

65# 

70 

71# 

73 

75# 

80 

81# 

49# 

61# 

66# 

76# 

92# 

93# 

86# 

51 

63 

68 

88 

89# 

66A 

76A 

16 

53= 

84A 

16 

84A 

16 

29(2) 

31(2) 

46 

16 

55= 

69(2)= 

71(2)= 

49A 

61A 

66A 

76A 

16 

46= 

49A 

58(2) 

61A 

16 

47= 

49A 

61A 

60= 

61A 

66A 

.  74 

16 

56= 

79(2)= 

81(2)= 

16 

49A 

53 

54 

61A 

65 

66A 

76A 

16 

49A 

54 

66A 

76A 

61A 

74 

16 

29(2) 

31(2) 

46 

59 

61 

64 

66(2) 

88« 


References 

61 

49 

84 

66  76 

53 


R»4  MTHSCOS 
R*4  HTHSSIN 
R*4  MTHSSORT 


27 

28 
65 


42 

43 

-B-15- 


18-Jun-1986  16:32:52  DUAO: CCHIANG.3037.SCM]NUF.FOR;33 


0001  C 

0002  C++*+*++*+  SUBROUTINE  NUF  +♦♦♦+♦+♦+ 

0003  C 

0004  SUBROUTINE  NUF(  NCHNU,  CHNU,  CPTNU,  RNU,  IN 

0005  ♦  CPT)  OUT 

0006 

0007  C  (3037-NUF)  OETERMINE  G,  GS,  R.  &  CM,  FOR  THE  CASE  OF  NONUNIFORM 
0008  C  INFLOW 

0009  C  REFERENCED  BY  NUFLOW 

0010  C  REFERENCES  MTHSCOS  (THRICE),  MTHSSMRT,  &  SPLIN3  (4  TIMES) 

0011  C  TO  BE  COMPILED  BY  VAX  FORTRAN  V.4.0-2. 

0012  C  COOED  BY  U.  CH1ANG,  21MAY86,  FOR  SCMV3.0;  REVISES  18JUN86 
0013 

0014  PARAMETER  (  NCMMX=20,  NMMX^II,  NQMX=14) 

0015 

0016  COMMON/MFLOW/  GS(NMMX),  G,  OMG, 

0017  +  CM(NQMX,NMMX),  CTH(NOMX,NMMX), 

0018  +  RCTH(NOMX,NMMX),  H(NOMX,NMMX),  A(NCIMX,NMMX),  DEN(NC1MX,NMMX) 

0019  CNOT  -t-  ,  ENT(NaMX,NMMX),  DMF(NMMX),  BLO(NQMX,NMMX) 

0020  CNOT  ♦  ,  OMBLO(NOMX,NMMX) 

0021  CNOT  *  ,  OMRCTH(NQMX,NMMX),  DMCM(NOMX,NMMX),  UTH(NQMX,NMMX) 

0022  COMMON/MLIN/  NM,  R(NaMX,NMMX),  PHIR(NOMX,NMMX) 

0023  CNOT  «  ,  CUR(NOMX,NMMX),  SM(NOMX,NMMX),  Z(NQMX,NMMX) 

0024  COMNON/NU/  NMM1,  PI,  COSRUM(NOMX) 

0025  CNOT  *  ,  SINRUM(NOMX) 

0026  COMMON/QLIN/  RUMRa(NaMX),  NO,  Q(NQMX,NMMX) 

0027  CNOT  +  ,  RUMR(NOMX,NMMX) 

0028  CNOT  +  ,  ZQHCNOMX),  ZOS(NQMX).  NOI,  NOB 

0029 

0030  OIMENSION  ARKNMMX),  AREAR(NOMX), 

0031  +  CMI(NMMX),  CMNU(NCMNU),  COEKNMMX),  CPT<NHMX),  CPTNU(NCMNU), 

0032  *  OUMKD,  ENU(NCMMX), 

0033  RI(NMMX),  RCMNU(NCMMX),  RNU(NCMNU),  SUMA(NCMMX) 

0034 

0035  C1900  FIND  TOTAL  FLOW  RATE,  ASSUMING  STRAIGHT  0-LINE  &  CONSTANT  DENSITY 


0036 

RUMR01 

sRUMROd) 

0037 

ENU1 

=PHIRd,1)-RUMR01 

0038 

RNUI 

aRNUd) 

0039 

TEM 

s(  PHIRd,1)-PHIRd,NM)  )/(  RNUI-RNU(NCMNU)  ) 

0040 

DO 

K>1, NCMNU 

0041 

RCMNU(K)»CMNU(X)  *  RNU<K)  •  COS(  <  RNU(K)-RNU1  )*TEM  ♦ 

0042 

0043 

0044 

END  DO 

CALL  SPLIN3(  NCMNU,  RNU,  RCMNU,  0,  DUM1,  DUM1,  DUM1,  ! 

0045 

♦ 

EPS) 

0046 

0047 

C1920  FLOW  RATE 

:  IN  EACH  STREAM  TUBE,  ASSUMMING  UNIFORM  DENSITY 

0048 

CORUMI 

sCOSRUMd) 

0049 

PI2DEN 

=DENd,1)*(PI+PI) 

0050 

G 

=SUMA(NCMNU)*PI20EN/C0RUM1 

0051 

NMM1 

=NM-1 

0052 

DELQ 

-SUMA(NCMNU)/NMM1 

0053 

GSd) 

*0. 

0054 

DO 

J>2,NMM1 

0055 

GS(J) 

sGS(J-1)+DELa 

0056 

0057 

END  DO 
GS(NM) 

xSUMA(NCMNU) 

0058 

0059  C1930  DETERMINE  VEL.  PROFILE  &  LOCATION  OF  STREAMLINES  AT  UPSTREAM 

0060 


0061 

CALL 

SPLIN3(  NCMNU,  SUMA, 

RNU, 

-NM,  GS,  R1,  AR1,  DUM1, 

.5 

0062 

♦ 

EPS) 

0063 

0064 

CALL 

SPLIN3(  NCMNU,  RNU, 

CMNU, 

-NMM1,  R1,  CM1,  AR1,  0UM1, 

.5 

0065 

+ 

EPS) 

0066 

0067 

CALL 

SPLIN3(  NCMNU,  RNU, 

CPTNU, 

-NM,  R1,  CPT,  AR1,  DUMI, 

.5 

0068 

+ 

EPS) 

0069 

0070 

CMd,1) 

=CMNU( 1 ) 

0071 

CMI(NM) 

=CMNU(NCMNU) 

0072 

CMd,NM)  =CMNU(NCMNU) 

0073 

TEM 

=Rd,1)*Rd,1) 

0074 

DO 

J*2,NMM1 

0075 

GS(J- 

1)  »GS(J)*PI20EN. 

0076 

Rd,J)  *R1(J) 

-B-16- 

0077  CM(1,J)  *CM1(J) 


ARKJ)  *R1(J)*R1{J)-TEM 
ENO  DO 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 


C1960  INITIAL  STREAMLINE  LOCATORS  <R  &  Q)  AT  1<I<=NQ,  1<J<NM 
AR1NM  =R(1,NM)*R{1.NM)-TEM 

DO  1=2, NO 

TEM  =R(I,1)»R(I,1) 

TEMP  ={  R(I,NM)*R(I,NM)-TEM  )/AR1NM 

AREAR(I)=TEMP 

DO  J=2,NMM1 

R(I,J)=SORT(  AR1(J)*TEMP  ♦  TEM  ) 

END  DO 
ENO  DO 

DO  1=1, NO 

RI1  =R(I,1) 

CORUMI  =COSRUM(I) 

0(1,1)  =0. 

DO  J=2,NH 

0{I,J)=(  R(I,J)-RI1  )/CORUMI 
ENO  DO 

PHIRI1  =PHIR{I,1) 

TEM  =(  PHIR(I,NM)-PHIRI1  )/0<I,NM) 

DO  J=2,NMM1 

PHIRd.J)  =0(I,J)»TEM+PHIRI1 

END  DO 
ENO  DO 

C1970  INITIAL  CM  AT  I>1 
DO  J=1,NM 

COEKJ)  =COS(  PHIR(1,J)-RUMR01  ) 

ENO  DO 

DO  1=2, NO 

TEM  =COSRUM<I)/(  C0RUM1*AREAR( I )  ) 

RUMROI  =RUHRO(I) 

DO  J=1,NM 

CM(I,J)  =CM1(J)»TEM*COE1(J)/COS(  PHIR(I, J)-RUMROI  ) 

ENO  DO 
ENO  DO 

RETURN 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCODE 

1552 

PIC  COM  REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

1  SPOATA 

8 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

2  SLOCAL 

808 

PIC  COM  REL 

LCL 

NOSHR 

NOEXE 

BD 

WRT 

LONG 

3  HFLOW 

3748 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

4  MLIN 

1236 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

5  NU 

64 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

6  OLIN 

676 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

8092 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  NUF  4# 


VARIABLES 


Address- 

Type 

Name 

Attributes 

References 

It* 

R*4 

AR1NM 

82= 

85 

2-000001E4 

R»4 

CORUMI 

48= 

50 

no 

«* 

R*4 

CORUMI 

93= 

96 

** 

R»4 

DELO 

52= 

55 

** 

R*4 

ENU1 

37= 

41 

2-000001E0 

R*4 

EPS 

44A 

6  in 

64A 

67A 

3 *00000020 

R*4 

G 

COMM 

16 

50= 

«« 

1*4 

I 

83= 

84(2) 

85(2) 

86 

-B-17- 


** 

1*4 

K 

40= 

41(4) 

AP- 00000004a 

1*4 

NCMNU 

4 

30(3) 

39 

40 

61A 

64A 

67A 

71 

4-00000000 

1*4 

NH 

COMM 

22 

39 

51 

57 

82<2) 

85(2) 

95 

99(2) 

5-00000000 

1*4 

NMM1 

COMM 

24 

51  = 

52 

54 

6-00000038 

1*4 

NO 

COMM 

26 

83 

91 

109 

3-00000030 

R*4 

OMG 

COMM 

16 

*« 

R*4 

PHIRI1 

98= 

99 

101 

5-00000004 

R*4 

PI 

COMM 

24 

49(2) 

** 

R*4 

PI2DEN 

49= 

50 

75 

** 

R*4 

RI1 

92= 

96 

** 

R*4 

RNU1 

38= 

39 

41 

2-0000010C 

R*4 

RUMR01 

36= 

37 

107 

*■* 

R*4 

RUMROI 

111  = 

113 

** 

R*4 

TEM 

39= 

41 

73= 

78 

99= 

101 

110= 

113 

** 

R*4 

TEMP 

85= 

86 

88 

ARRAYS 


Address  Type 

Name 

Attributes 

3-00000904 

R*4 

A 

COMM 

2-00000000 

R*4 

AR1 

2-0000002C 

R*4 

AREAR 

3-00000034 

R*4 

CM 

COMM 

2-00000064 

R*4 

CM1 

AP-00000008a  R*4 

CMNU 

2-00000090 

R*4 

COE1 

5-00000008 

R*4 

COSRUM 

COMM 

AP-OOOOOOUa  R*4 

CPT 

AP-oooocooca 

R*4 

CPTNU 

3-0000029C 

R*4 

CTH 

COMM 

3-OOOOOC3C 

R*4 

DEN 

COMM 

2-OOOOOOBC 

R*4 

DUM1 

2-OOOOOOCO 

R*4 

ENU 

3-00000000 

R*4 

GS 

COMM 

3-0000076C 

R*4 

H 

COMM 

4-0000026C 

R*4 

PHIR 

COMM 

6-0000003C 

R*4 

0 

COMM 

4-00000004 

R*4 

R 

COMM 

2-00000110 

R*4 

R1 

2- 000001 3C 

R*4 

RCMNU 

3-00000504 

R*4 

RCTH 

COMM 

AP-ooooooioa 

R*4 

RNU 

6-00000000 

R*4 

RUMRO 

COMM 

2-0000018C 

R*4 

SUMA 

PARAMETER  COMSTANTS 

Type  Name 

I *4  NCMHX 
1*4  NMMX 
1*4  NOMX 


Bytes 

Dimensions 

References 

616 

(14. 

11) 

16 

44 

(11) 

30 

88 

56 

(14) 

30 

616 

(14, 

11) 

16 

44 

(11) 

30 

** 

(*) 

4 

71 

44 

(11) 

30 

56 

(14) 

24 

44 

(11) 

4 

** 

(*) 

4 

616 

(14, 

11) 

16 

616 

(14, 

11) 

16 

4 

(1) 

30 

80 

(20) 

30 

44 

(11) 

16 

75(2)= 

616 

(14, 

11) 

16 

616 

(14. 

11) 

22 

101  = 

616 

(14, 

11) 

26 

616 

(14, 

11) 

22 

85(2) 

44 

(11) 

30 

78(2) 

80 

(20) 

30 

616 

(14, 

11) 

16 

** 

(*) 

4 

44A 

56 

(14) 

26 

80 

(20) 

30 

61A 

References 

14# 

30(3) 

14# 

16(7) 

22(2) 

26 

14# 

16(6) 

22(2) 

24 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


-  B-18  - 


Type  NaMe 


References 


R*4 

MTHSCOS 

41 

107 

113 

R*4 

MTHSSQRT 

88 

SPLIN3 

44 

61 

64 

KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argument,  posiibly  modified 

0  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 

+... - - - -  — ..  — ..  — .......  — - - ....+ 


COMMAND  QUALIFIERS 
F/LIS/CHE/CRO  NUF 

/CHECKsCBOUNDS, OVERFLOW, UNDERFLOW) 

/OEBUGs(NOSYMBOLS , TRACEBACK ) 

/STANOARO=(NOSYNTAX, NOSOURCE  FORM) 

/SHOW°(NOPREPROCESSOR , NOI NCLUDE , MAP , NOD  I CT I ONARY .SINGLE) 

/WARN I NGS=( GENERAL , NOOECLARAT IONS) 

/C0NTINUATI0NS=19  /CROSS  REFERENCE  /NOD  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /U  /NOMACHINE  CODE  /OPTTmIZE 


COMPILATION  STATISTICS 


Run  Time: 
Elapsed  Time: 
Page  Faults: 
Dynamic  Memory: 


6.58  seconds 
8.19  seconds 
298 

425  pages 


16-Jun-1988  10:50:21  VAX  FORTRAN  V4.0-2  P 

20-0ct-1987  16:22:50  OUaO: [CHIANG. 3037. SCMIHUFLOU. FOR; 105 


0001  C 

0002  C+++++++++  SUBROUTINE  NUFLOW 

0003  C 

0004  SUBROUTINE  NUFLOW(  IBFLOW,  10SN3,  IN,  LG> 

0005 

0006  C  (3037-NUFL0W)  I.O.  SUBROUTINE  FOR  NONUNIFORM  (OR  UNIFORM)  WATER  FLOW 

0007  C  "CNOTUSED"  INDICATES  STATEMENTS  OF  NO  USE  IN  THE  SCM  PROGRAM; 

0008  C  "CGAS"  INDICATES  STATEMENTS  TO  BE  USED  ONLY  IF  THE  FLUID  IS  A  GAS; 

0009  C  <<CNOT«  INDICATES  STATEMENTS  NOT  NECESSARY  IN  THE  PRESENT  APPLICATION, 

0010  C  PART  OF  WHICH  COULD  BE  REQUIRED  FOR  GAS  FLOW. 

0011  C  INPUT  IBFLOW,  IN,  LG,  &  OTHERS;  OUTPUT  OTHERS. 

0012  C  REFERENCED  BY  MAIN  (SCM) 

0013  C  REFERENCES  ENTHAL  (TWICE),  FORSCLOSE,  FORSOPEN,  MTHSCOS  (TWICE), 

0014  C  TO  BE  COMPILED  BY  VAX  FORTRAN  V.4.0-2. 

0015  C  ADOPTED  FROM  BBFLOW  &  DATOUT,  07MAY86,  FOR  V2.7; 

0016  C  REVISED  01AUG86,  FOR  V3.0;  CHIANG;  REVISED  20OCT87 

0017 

0018  C  IBFLOW=-2  IF  G,  CM(*),  R(*)  &  Q(*)  ARE  INPUT  DATA; 

0019  C  =-1  FOR  NONUNIFORM  INFLOWS; 

0020  C  =  0  FOR  UNIFORM  INFLOW; 

0021  C  =  1  IF  DATA  ARE  AVAILABLE  FROFT  BLADE  TO  BLADE  CALCULATIONS; 

0022  C  -10  TO  USE  SUB  BBFLOW  TO  PREPARE  INPUT  DATA. 

0023  C  I0SN3  >  0  FOR  NO  ACTION; 

0024  C  s  1  TO  STORE  A  PART  OF  RESULTS  TO  DSN3ZI.0AT  TO  BE  USED  BY 

0025  C  (3037-0SN3) 

0026  C  IN  LOGICAL  UNIT  it  FOR  INPUT  FILE 

0027  C  LG  -  0  FOR  SEA  WATER  (OEN31025  KG/CU.M.); 

0028  C  =  1  FOR  PURE  WATER  (0EN=1000): 

.  0029  C  =  2  FOR  GAS. 

0030 

0031  C  READ1  (A  DUMMY  LINE  TO  STORE  TITLE,  NOTE...) 

0032  C  REA02  NM  «  OF  MERIDIONAL  STREAM  LINES,  >=5 

0033  C  NO  «  OF  0-LINES,  >=5 

0034  C  NOI  LINE  «  OF  Q-LINE  AT  THE  LINE  PRIOR  TO  THE  LEADING  EDGE 

0035  C  OF  SLADE 

0036  C  NOB  «  OF  0-LINES  ON  THE  BLADE 

^  0037  C  ICM  >  1  TO  SOLVE  0(CM)/DQ  (INDUE);  <2  TO  SOLVE  D(CM*CM)/D0 

0038  C  REA03  OMG  ANGULAR  VEL.  in  rsd/sec 

0039  C  RAS  REFERENCE  RADIUS  in  m 

0040  C  DMPCM  DAMPING  FACTOR  USED  IN  CM  ITERATION,  INOUE  1. 

0041  C  OMPG  DAMPING  FACTOR  USED  IN  G  ITERATION,  INOUE  .5 

0042  C  DHPL  DAMPING  FACTOR  USED  IN  0  ITERATION,  INOUE  .1 

0043  C  EPSCM  CONVERGING  CRITERION  FOR  CM  ITERATION,  INOUE  1.E-6 

0044  C  EPSG  CONVERGING  CRITERION  FOR  G  ITERATION,  INOUE  1.E-4 

0045  C  EPSL  CONVERGING  CRITERION  FOR  Q  ITERATION,  INOUE  1.E-4 

0046 

0047  C  REA04  RUMRO  ANGLE  BETWEEN  0-L(NE(STRAIGHT)  S  RADIUS  DIR.,  POSITIVE 

0048  C  C.W.,  in  rad. 

0049  C  REA05  Z  Z-COORINATE  in  m 

0050  C  REA06  PHID1  ANGLE  BETWEEN  HUB  &  Z-ZXIS  in  deg 

0051  C  PHION  ANGLE  BETWEEN  CASING  &  Z-ZXIS  in  deg 

0052  C  REA07  SM  M- COORD  I NATE  in  m 

0053  C  REA08  CTH  PERIPHERAL  VEL.  in  m/sec 

0054  C  REA09  SLO  BLOCKAGE  FACTOR,  Kb=(theta2-theta1)/(2*pi/N),  0  TO  1., 

0055  C  1  IF  NO  BLOCKAGE 

0056 

0057  C  *****  READ10  t  REA011  ARE  REQUIRED  ONLY  IF  LG=2  ***** 

0058  C  REA010DEN  DENSITY  in  kg/cu.m. 

0059  C  READ11ENT  CHANGE  OF  ENTROPY  in  J/kg 

0060 

0061  C  *****  REA012  TO  REA015  ARE  REQUIRED  ONLY  IF  I8FLOW=-2  ***** 


0062  C  READ12GS  CUMULATIVE  MASS  FLOW  RATE  IN  FLOW-TUBES,  GS(1)  TO 

0063  C  DESIGNATES  THAT  BN.  J^l  S  J=2,  GS(NM-1)xG,  in  kg/sec 

0064  C  G  MASS  FLOW  RATE  in  kg/sec 

0065  C  READ13CM  MERIDIONAL  VEL.  in  m/sec 

0066  C  READ14R  RADIAL  DISTANCE  FROM  AXIS  OF  NATATION  in  m 

0067  C  READ15H  ENTHALPY  in  J/kg  or  (m/sec)**2 

0068 

0069  C  *****  REA016  TO  READ21  ARE  REQUIRED  ONLY  IF  IBFLOW=-1  ***** 

0070  C  READ16R  RADIAL  DISTANCE  FROM  AXIS  OF  RATATION  in  m 

0071  C  REA017HCMNU  #  OF  INPUT  DATA  FOR  INFLOW  VEL.  PROFILE 

0072  C  READ18RNUC1  1ST  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE  INPUT  RNU 

0073  C  RNUC2  2N0  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE  INPUT  RNU 

0074  C  CMNUC1  1ST  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE  INPUT  CMNU 

0075  C  CMNUC2  2ND  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE  INPUT  CMNU 

0076  C  RERR  ALLOWABLE  ERROR  IN  RNU  DATA  IN  m 

0077  C  EPS  CONVERGENCE  CRITERION  TO  BE  USED  IN  SPLINE  ROUTINE 

-B-20- 


0078  C  VO  FLOW  VEL.  (OR  VEHICLE  VEL.)  AT  FREE  STREAM,  in  m/s  AFTER 

0079  C  BEEN  MULTIPLIED  BY  VOC 

0080  C  VOC  CONVERSION  FAC.  TO  BE  MULTI.  TO  VO 

0081  C  PHO  STATIC  PRESSURE  HEAD  AT  FREE  STREAM  in  m 

0082  C  REA019RNU  RADII  OF  NCMNU  PTS.,  in  m  AFTER  MULTIPLYED  W/  RNUC1*RNUC2 

0083  C  REA020CMNU  MERIDIONAL  VEL.  AS  FUNCTION  OF  RNU,  in  m/sec  AFTER  BEEN 

0084  C  MULTIPLIED  BY  CMNUC1*CMNUC2 

008S  C  READ21CPTNU  PRESSURE  COEFFICIENT  AS  FUNCTION  OF  RNU 

0086 

0087  C  *****  REA022  &  REA023  ARE  REQUIRED  ONLY  IF  IBFLOU=0  ***** 

0088  C  REA022G  MASS  FLOW  RATE  in  kg/sec 

0089  C  CPTC  CONSTAT  PRESSURE  COEFFICIENT 

0090  C  VO  FLOW  VEL.  (OR  VEHICLE  VEL.)  AT  FREE  STREAM,  in  m/s  AFTER 

0091  C  BEEN  MULTIPLIED  BY  VOC 

0092  C  VOC  CONVERSION  FAC.  TO  BE  MULTI.  TO  VO 

0093  C  PHO  STATIC  PRESSURE  HEAD  AT  FREE  STREAM  in  m 

0094  C  REA023R  RADIAL  DISTANCE  FROM  AXIS  OF  NATATION  in  m 

0095 

0096  C  *****  REA024  TO  READ29  ARE  REQUIRED  ONLY  IF  IBFL0U*1  ***** 

0097  C  READ24G  HASS  FLOU  RATE  in  kg/sec 

0098  C  REA025CM  MERIDIONAL  VEL.  in  m/sec 

0099  C  REA026R  RADIAL  DISTANCE  FROM  AXIS  OF  RATATION  in  m 

0100  C  REA027H  ENTHALPY  in  J/kg  or  (m/sec]**2 

0101  C  REA028TNA  TN  OF  EQ.  10 

0102  C  READ29CTH0  A  KINO  OF  COELTA(CM*CTH)l/CM,  FROM  BLADE  TO  BLADE  PROGRAM 

0103 

0104  PARAMETER  (  NCMMXa20,  NMMXall,  NQMXaH) 

0105 

0106  CNOT  CCMMON/DESIGN/  BSBE,  BE,  RT,  RPM,  UT,  EFFI,  AVIL,  VELR,  HEADAD, 

0107  CNOT  *  FLOUC,  FLOUR,  CONST,  POU 

0108  CGAS  COMMON /GASCON/  SHR,  GASC,  CP,  POSABS,  TOSABS 

0109  CNOTUSEO  COMMON/LOAO/  PCON(NMMX>,  IPCON(NMMX) 

0110  COMMON/MFLOU/  GS(NMMX),  G,  OMG, 

0111  *  CM(NaMX,NMMX},  CTH(NOMX,NMNX), 

0112  *  RCTH(NQMX,NMMX),  H(NOMX,NMMX),  A(NOMX,NMMX),  0EN(NOMX,HHMX), 

0113  +  ENT(NaMX,NMMX),  OMF(NMMX),  BLO(NOMX,NMMX) 

0114  CNOT  *  ,  OMBLO(NQMX,NMMX), 

0115  CNOT  *  DMRCTH(NOMX,NMMX),  OMCM(NOMX,NMMX),  UTH(NOMX,NMMX) 

0116  C  A(*),  0MF(*),  &  0MRCTH(*)  ARE  NOT  USED  IN  «SCM" 

0117  COMMON/MLIN/  NM,  R(NQMX,NMMX),  PHIR(NOMX,NMMX), 

0118  *  CUR(NaMX,NMMX),  SM(NQMX,NMMX),  Z(NOMX,NMMX) 

0119  COMMON/NONAXl/  TNA(NaMX,NMMX},  UCTHD(NQMX,NMMX> 

0120  COMMON/QLIN/  RUMRQ(NQMX),  NQ,  0(NQMX.NMMX),>RUMR(NQMX,NMMX), 

0121  *  ZQH(NaMX),  ZaS(NQHX),  NQI,  NQB 

0122  C  RUMR(*,*)  IS  REPLACED  BY  RUMRO(*)  SINCE  Q-LINE  IS  TAKEN  TO  BE  STRAIGHT 

0123  C  Z0S(*)  IS  NOT  USED  IN  "SCM";  Z0H(*)  IS  USED  IN  BBFLOW  (  DATOUT  ONLY 

0124  CNOTUSEO  COMMON/ROTO/  ZLE(2),  ZTE(2),  NB,  IPRF(NMMX),  TMPC(NHMX}, 

0125  CNOTUSEO  ♦  AXIM(NMMX),  ZHAXI,  RUMAXI,  lAXI,  TTE 
0126  CNOTUSEO  COMMON/SCROLL/  ALPSC,  DHU,  BS 

0127  CNOT  COMMON/STAN/  STANP,  STANT,  STANCE 
0128  COMMON/XY/  RAS 

0129  CNOT  *  ,  XM(NOMX,NMMX] 

0130  COMMON/NU/  NMM1,  PI,  COSRUH(NOMX),  SINRUH(NQMX) 

0131  COMMON/ 13/  I  CM 

0132  COMMON/IQS/  OMPCM,  OMPG,  OMPL,  EPSCM,  EPSG,  EPSL 

0133 

0134  OIMEHSION  CMNU(HCMMX),  CPT(NMMX),  CPTNO(NCMMX), 

0135  *  PHIDKNQMX),  PHIDN(NOMX),  RNU(NCf«1X) 

0136 

0137  DATA  Pl/3. 14159265359/ 

0138 

0139  DEGRAO  >180. /PI 

0140  RAOOEG  aPI/180. 

0141 

0142  IF  (IBFL0W.lt. -2  .OR.  IBFLOW.GT.1  .OR.  LG.LT.O  .OR.  LG.GT.1)  THEN 

0143  PRINT  *,  'CHECK  IBFLOW  4  LG...  ',  IBFLOU,  LG 

0144  STOP  'MUFL0W.50' 

0145  END  IF 

0146 

0147  C  100  ***** 

0148  READ  (IN,*)  REA01 

0149  READ  (IN,*)  NM,  NQ,  NQI,  NQB,  ICM  READ2 

0150 

0151  WRITE(6,*)  'ICM  =',  ICM 

0152  URITE(6,110) 

0153  110  FORMAT(///'0'4X81('+')/5X'+'79X'+'/5X'+'12X 

0154  'THE  QUASI  THREE-DIMENSIONAL  DESIGN  OF  THE  DIAGONAL  FLOU'12X'*'/ 

0155  ♦  5X,'+'79X'+'/5X81('+')) 

0156  -B-21- 

0157  CNOTUSEO  READ  (IN,*)  NB 


0158 

CGAS 

READ  (IN,*)  SNR,  GASC,  CP,  POSABS,  TOSABS 

0159 

CHOTUSED 

READ  (IN,*)  POW,  RPM,  CONST.  AVIL 

0160 

READ 

(IN,*)  ONG,  RAS,  DMPCM,  DMPG,  DMPL,  EPSCM,  EPSG,  EPSL 

READ3 

0161 

CNOTUSED 

READ  (IN,*)  STANP 

0162 

CGAS 

READ  (IN,*)  STANT 

0163 

CNOTUSED 

READ  (IN,*)  STANDE,  ALPSC,  DHU,  BS 

0164 

CNOTUSED 

READ  (IN,*)  ZHAXI,  RUMAXI,  TTE,  BSBE,  BE,  RT 

0165 

CNOT 

READ  (IN,*)  UT,  EFFI 

0166 

CNOTUSED 

READ  (IN,*)  VELR 

0167 

CGAS 

READ  (IN,*)  HEADAD 

0168 

CNOTUSED 

READ  (IN.*)  FLOWC,  FLOWR 

0169 

0170 

CNOTUSED 

READ  (IN,*)  (  DHF(J).  THPC(J).  AXIM(J).  PCON(J), 

J=1,NM) 

0171 

0172 

READ 

(IN.*)  (  RUMROd),  1*1. NO) 

READ4 

0173 

READ 

(IN.*)  (  2(1,1),  1*1, NO) 

READ5 

0174 

CNOTUSED 

READ  (IN,*)  (  ZOSd),  1*1, NO) 

0175 

0176 

READ 

(IN.*)  (  PHIDKI),  PHIDNd),  1=1, NO) 

READ6 

0177 

READ 

(IN.*)  (  SM(I,1),  SMd.NM),  1*1. NO) 

REA07 

0178 

0179 

READ 

(IN.*)  (  (  CTHd.J),  J=1,MM),  1*1, MO) 

READS 

0180 

READ 

(IN,*)  (  (  BLOd.J),  J=1,NM),  1=1, NO) 

READ9 

0181 

0182  C  120  INPUT  FOR  GAS  FLOWS  *•*•* 

0183  IF  (LG.EQ.2)  THEN 

0184  READ  (IN,*)  (  (  0EN(I,J),  J»1,NM),  1:1, NQ) 

0185  READ  (IN.*)  (  (  ENT(I,J),  J*1,NN),  I»1,NQ) 

0186  CNOT  OENREF  >PREF/(GASC*TREF) 

0187  OENREF  >OEN(1,1) 

0188  ELSE 

0189  IF  (LG.EO.O)  THEN 

0190  0ENREF>1025. 

0191  ELSE 

0192  OENREFsIOOO. 

0193  END  IF 

0194  00  J«1,HM 

0195  00  1*1. NO 

0196  0EN(I,J)  «OENREF 

0197  ENTd.J)  »0. 

0198  END  DO 

0199  END  00 

0200  ENO  IF 

0201 

0202  C  130  ***** 

0203  NMHI  >NM- 1 

0204  NQI1  sNQI+1 

0205  NOIB  >NQI4^NQB 

0206  DO  1x1, NO 

0207  COSRUH(I)  xCOS(  RUHRQd)  ) 

0208  PHIRd.M  =PHI01(I)*RA00EC 

0209  PHIRd.NH)  xPHIONd  )*RA00EG 

0210  ENO  00 

0211 

0212  C  170  ***** 

0213  GOTO  (  180,  190,  200,  210),  I8FLOW+3 

0214 

0215  C  180  IBFLOW=-2,  INPUT  KNOWN  G,  GS,  CM,  &  R  ***** 

0216  180  READ  (IN,*)  (  GS(J),  J=1,MM-2),  G 

0217  READ  (IN,*)  (  (  CM(I,J),  J=1,NM),  I-I.NQ) 

0218  READ  (IN,*)  (  (  Rd,J),  J*1,NM).  1*1, NO) 

0219  READ  (IN,*)  (  (  H(I,J),  J*1,NM).  1*1, NO) 

0220  GOTO  250 

0221 

0222  C  190  IBFLOW*-1,  MONUNIFORM  FLOW  ***** 

0223  190  READ  (IN,*)  (  R(I,1),  R(I,NH),  1*1, NO) 

0224  READ  (IN,*)  NCMNU 

0225  IF  ( NCMNU. GT.NCMMX)  THEN 

0226  PRINT  *,  'NCMNU. GT.NCMMX...',  NCMNU,  NCMMX 

0227  STOP  'NUFL0W.191' 

0228  ENO  IF 

0229  WRITE(6,192)  NCMNU 

0230  192  FORMAT! 'OINPUT  NONUNIFORM  VEL.  DISTRIBUTION', 

0231  ♦  '»  DETERMINE  STREAMLINE  LOCATIONS  AT  UPSTREAM'/'ONCMNU  *'I3/) 

0232  READ  (IN,*)  RNUC1,  RNUC2,  CMNUC1,  CMNUC2,  RERR,  EPS,  ■ 

0233  +  VO,  VOC,  PHO 

0234  WRITE(6,*)  'RNUC1,  RNUC2,  CMNUC1,  CMNUC2,  RERR,  EPS  *  ', 

0235  *  RNUC1,  RNUC2,  CMNUC1 ,  CMNUC2,  RERR,  EPS 

0236  IF  (EPS.GE.1.)  THEM 

0237  PRINT  *,  'EPS.GE.1...',  EPS 


REA016 
READ 17 


READ 18 


READ 12 
REA013 
READ 14 
REA015 


READ 10 
READ 11 


REA019 


0238 

0239 

0260 

0261 

0262 

0263 

0266 

0265 

0266 

0267 

0268 

0269 

0250 

0251 

0252 

0253 

0256 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0266 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0276 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0286 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0296 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0306 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0316 

0315 

0316 

0317 


STOP  'MUFL0W.196' 

ENO  IF 

READ  (IN,*)  (  RWKIC),  IC»1.«CMI(U) 

URITE(6,*)  '  RMU(in)  (  RMUdC),  K*1,NCMMU) 

READ  (  CMMUdC),  (C-1.MCMNU) 

WRITE{6,*)  '  CMNUCm)  (  CMNU<K).  K^l.tlCMNU) 

READ  (IN.*)  (  CPTNU(K),  ((=1,MCMNU) 

URITE{6,*)  'CPTNU(m)  .  (  CPTNU<K).  K*1.N{»(NU) 

RNUC1  .  *  RNUC1*  RNUC2 
CHNUCI  >(»INUC1*(MNUC2 
00  K>1,NCMNU 

CHNU(K)  »(»1MU(IC)*CHNUC1 
RMU(K)  »  RMIKK)*  RMUC1 
END  DO 

IF  (  ABS<  R(1,1)-RHU(1)  )  .GT.  RERR  .OR. 

♦  ABS(  R(1,NM>-RNU(N(MNU)  )  .GT.  RERR  )  THEN 

PRINT  *.  'CHECK  R(1.1).  R<1,NM).  RNU<1).  RNU(NOINU) . . . ' . 

♦  R(1,1).  Rd.HM),  RHUd),  RHO(NC»1HU).  NM,  NCMNU 

+  RERR 

STOP  •HUFL0U.198' 

END  IF 

RNUd)  =Rd,1) 

RNU(NCNNU)-Rd,NM) 

CALL  NUF(  NCMNU,  CMNU.  CPTNU,  RHU,  CPT) 

CALL  ENTHALC  CPT,  NOI1,  NOIB,  PHO,  VO,  VOC) 

C  199  CREATE  A  REVISED  INPUT  FILE 

OPEN(  8,  FILE-'SCMJ',  STATUS*'NEW' ) 

UHITE(8.*)  -2,  IOSN3,  1,  '  (0)  IBFLOW,  IDSN3.  LG' 

URITE(8,*)  '(3037-SCMI.DAT)  FOLLOUING  ARE  INPUT  DATA  FOR  SUB  ', 

+  'NUFLOW...  (1)' 

URITE<8,*)  NM,  NQ,  NQI,  NOB,  ICM,  '  (2)  NM,  NO,  NQI,  NOB,  ICM' 
URITE<8,*)  OMG,  RAS,  DMPCM,  DMPG,  OMPL,  EPSCM,  EPSG,  EPSL, 

♦  '  (3)  OMG,  RAS,  OMPCM,  DMPG,  OMPL,  EPSCM,  EPSG,  EPSL' 
URITE<8,*)  <  RUMROd),  1=1, MO),  '  (6)  RUMRQ{I)' 

UfiITE(8,*)  (  2(1.1),  1=1, NO),  '  (5)  2(1,1)' 

WRITE(8,*)  (  PHIOKI),  PHION(I),  1*1, NO), 

+  '  (6)  PHIOKI),  PHIOM(I)' 

WRITE(8,*)  (  SM(I,1),  SM(I,NM),  1*1, NO), 

♦  '  (7)  SM<I,1),  SM(I,NM)' 

URITE(8,*)  (  (  CTH(I,J),  J*1,NM),  1*1, NO),  '  (8)  CTH(I,J)' 

WRITE(8,*)  (  (  BLO(I,J),  J»1,NM),  1*1, MO),  '  (9)  BLO(I,J)' 

WRITE(8,*)  (  GS(I),  I*1,MM-2),  G,  '  (12)  GS(I)' 

WRITE(8,*)  (  (  CM(I,J),  J*1,NM),  1*1, NO),  '  (13)  CM(I,J)' 

WRITE(8,*)  (  (  R(I,J),  J*1,NM),  1*1, HO),  '  (16)  R(I,J)' 

WRITE(8,*)  (  (  H(I,J),  4*1, NM),  1*1, NO),  '  (15)  H(I,J)' 

WRITE(8,*)  'END  OF  INPUT  OAT  SCMI.OAT' 

C  ASSUMING  LG*1  IF  IBFLOW*1 
CL0SE(8) 

PRINT  *,  'A  NEU  FILE  SCMJ.OAT  CREATED...' 

GOTO  250 

C  200  IBFL0W*0,  UNIFORM  INFLOU  ***** 

200  READ  (IN,*)  G,  CPTC,  VO,  VOC,  PHO 

WRITE(6,*)  'CONSTANT  PRESSURE  COEFFICIENT  *',  CPTC 
READ  (IN,*)  (  R(I,1),  R(I,NM),  1*1, NO) 

C  205  INITIAL  CM,  R,  &  0,  FOR  UNIFORM  INFLOW  &  EOUAL  CROSS-SEC.  FLOW- 
TEM  »PI*OENREF*.5 

DO  1*1, NO 

RR1  *R(I,1)*R(I,1) 

AR  *R(I,MM)*R(I,HM)-RR1 

OAR  *AR/NMM1 

CNONO  IF  (LG.E0.2)  OENREF*OENSI(  H(I,1),  ENT(I,1),  CM(I,1),  CTH(I, 
CNONO  CMI  *G/(  AREAH(I)  *  (OENREF+OENREF)  ) 

CMI  *G*COSRUM(I) 

+  /(  COS(  (  PHIR(I,1)*PHIR(I,NM)  )*.5-RLIMR0( I )  ) 

♦  *(  BLO(I,1)+BLO(I,NM)  )*TEM*AR  ) 

CM(I,1)  =CMI 
CM(I,NM)=CMI 
DO  J»2,NMM1 

CM(I,J)  *CMI 

R(I,J)=SORT(  OAR*(J-1)+RR1  ) 

END  DO 
ENO  DO 

DO  4*1, NM  -B-23- 

CPT(4)  »CPTC 


READ20 

REA021 


READ22 

READ23 

TUBES 

D) 


END  00 


0318 

0319 

0320 

0321 

0322 

0323 

0324 


0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 


0395 

0396 

0397 


CALL  ENTHALC  CPT,  NOI1,  NOIB.  PHO,  VO,  VOC) 
GOTO  250 

C  210  IBFLOW«1,  INPUT  FROM  BLADE -TO- BLADE  CONPUTATIONS 


0325 

210  READ 

(IN,*) 

G 

READ24 

0326 

READ 

(IN,*) 

( 

( 

CNd.J), 

J=1,NH), 

1=1, NO) 

READ25 

0327 

READ 

(IN,*) 

( 

( 

R(I,J), 

J=1,NM), 

1=1, NO) 

REA026 

0328 

READ 

(IN,*) 

( 

( 

H{I,J), 

J=1,NN), 

1=1, NO) 

REA027 

0329 

READ 

(IN,*) 

( 

( 

TNA(I,J), 

J»1,HM), 

1=1, NO) 

READ28 

0330 

READ 

(IN,*) 

( 

( 

WCTHD(I,J), 

J*1,NM), 

1*1, NO) 

READ29 

GOTO  300 


C  250 
250  DO  J-1.NH 

DO  ls1,NO 

TNA(I,J) 
WCTHDCI.J) 
END  DO 
END  DO 


=0. 

=0. 


C  300  GS  ***** 

300  IF  (IBFLOW.GE.O)  THEN 
TEH  >G/NMM1 
DO  Js1,NMH1-1 
GS(J)  =TEM*J 
END  DO 
END  IF 


C  700  **•*•*•**• 

WRITE(6,710)  MAX{IBFLOU,0)+1,  G*60.,  OMG,  RAS 
710  FORMATCO  '81( )/'0'10XI2 

♦  '-TH  THROUGH  FLOW  CALCULATION  BY  USE  OF  THE  EXTENDED', 

♦  '  HIRSCH"S  METH00'//10X'*  TOTAL  DESIGN  SPECIFICATION  :'/ 

♦  26X'MASS  FLOW  RATE  »'E12.5'  (KG/MIN)'/ 

+  26X'ANGULAR  VELOCITY  ='E12.5'  (RAD/SEC)'/ 

♦  26X'REFERENCE  RADIUS  ='E12.5'  (M)'> 

CNOTUSED  POS  *<P0S48S-STANP)/9,8 

CNOTUSED  ETS  «(  EFFI  *  HEADAD  *  UT**2  )/(  CP  *  (TOSABS-STANT) 


0359 

CNOT 

URITE(6,720)  RT,  RPM,  VELR,  EFFI,  HEADAD, 

FLOWC,  ETS, 

SHR,  GASC, 

0360 

CNOT 

♦ 

CP. 

POS,  TOSABS,  STAMP,  ST ANT 

0361 

CNOT 

720  FORMAT! 

0362 

CNOT 

♦ 

26X' BLADE  TIP  RADIUS 

='E12.5,' 

(M)'/ 

0363 

CNOT 

♦ 

26X' ROTATION  FREQUENCY 

='E12.5,' 

(R.P.M.)'/ 

0364 

CNOT 

♦ 

26X'VELOCITY  RATIO 

='E12.5,/ 

0365 

CNOT 

♦ 

26X'TOTAL  TO  TOTAL  EFFICIENCY 

='E12.5,/ 

0366 

CNOT 

♦ 

26X'ISENTROPIC  HEAD  COEFFICIENT 

='E12.5,/ 

0367 

CNOT 

♦ 

26X'FLOW  COEFFICIENT 

='E12.5,/ 

0368 

CNOT 

♦ 

26X' TOTAL  TO  STATIC  EFFICIENCY 

='E12.5,/ 

0369 

CNOT 

•f 

'O'lOX'*  WORKING  GAS:  '/ 

0370 

CNOT 

* 

26X'SPECIFIC  HEAT  RATIO 

='E12.5,/ 

0371 

CNOT 

♦ 

26X'GAS  CONSTANT 

='E12.5.' 

(J/KG.K)'/ 

0372 

CNOT 

♦ 

26X'SPEC.  HEAT  AT  CONST.  PRESSURE 

='E12.5,' 

(J/KG.K)'/ 

0373 

CNOT 

'O'lOX'*  PLENUM  STATE 

0374 

CNOT 

♦ 

26X' GAUGE  PRESSURE 

='E12.5,' 

(MM. AO)'/ 

0375 

CNOT 

♦ 

26X' ABSOLUTE  TEMPERATURE 

='E12.5,' 

(K)'/ 

0376 

CNOT 

♦ 

'O'lOX'*  ATMOSPHERIC  STATE  :'/ 

0377 

CNOT 

♦ 

26X' ABSOLUTE  PRESSURE 

='E12.5,' 

(M/M**2)'/ 

0378 

CNOT 

♦ 

26X' ABSOLUTE  TEMPERATURE 

='E12.5,' 

(K)') 

0379 

CNOTUSED 

URITE(6,730)  ALPSC,  BSBE,  BE,  DHU, 

CONST,  AVIL 

0380 

CNOTUSED 

730  FORMAT! '0' 

0381 

CNOTUSED 

♦ 

10X'*  SCROLL  NOZZLE  GEOMETRIES  AND 

PERFORMANCE 

:  ;'/ 

0382 

CNOTUSED 

♦ 

26X' SCROLL  ANGLE 

*'E12.5,' 

(DEG)'/ 

0383 

CNOTUSED 

♦ 

26X'PASSAGE  HEIGHT  RATIO 

='E12.5,/ 

0384 

CNOTUSED 

♦ 

26X' NOZZLE  PASSAGE  HEIGHT 

='E12.5,' 

(M)'/ 

0385 

CNOTUSED 

♦ 

26X'HUB  DIAMETER 

='E12.5.' 

(M)'/ 

0386 

CNOTUSED 

♦ 

26X'FREE  VORTEX  CONSTANT 

='E12.5,' 

(M**2/SEC) 

0387 

CNOTUSED 

26X' AVAILABILITY  OF  FREE  VORTEX 

='E12.5) 

0388 

URITE(6,740)  NO,  NM 

0389 

740 

1  FORMAT(/5X81('*')/ 

0390 

♦ 

'1' 

lOX'' 

the  working  stations  (0-LINES)  ♦♦♦♦+'/// 

0391 

♦ 

15X 

'THE 

NUMBER  OF  0-LINES' 16X' =' 12/ 

0392 

♦ 

15X 

'THE 

NUMBER  OF  MERIDIONAL  STREAMLINES  a 

'I2///1SX'I' 

5X 

0393 

♦ 

'ZOH(M) 

'7X'RUM(OEG)'7X'OMAX'/) 

0394 

CNOT 

♦ 

'ZOH(M)'7X'ZOS(M)'6X'RUM(DEG)'7X'OMAX'/) 

C  820  INITIAL  O-COORDINATES 
IF  (IBFLOU.NE.-1)  THEN 


-B-24- 


0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
•  0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 


DO  1*1. NO 
R11  >R(I,1) 

COMJNI^COSRUMd) 

0(I,1)«0. 

00  J32,NM 

a(I,J)>(  R(I,J1-RI1  )/CORUMI 
END  DO 
END  DO 
END  IF 

C  900 

DO  950  1=1, NO 

CNOTUSED  RUM  =RUMRQ( 1 )*0EGRA0 

URITE(6,5905)  I,  Z(I,1),  RUMRO( I )*0EGRA0.  0(1, NM) 

IF  (I.EQ.NOII)  THEN 
URITE(6,910) 

910  FORMAT<'+'55X» (LEADING  EDGE)') 

GOTO  950 
END  IF 

IF  (I.EO.NQIB)  URITE(6,920) 

920  FORMAT('+'55X'(TRAILING  EDGE)') 

CNOTUSED  IF  (I.NE.NOII  .AND.  I.NE.NOIB)  WR1TE(6,5905)  I,  Z(I,1) 

CNOTUSED  ,Z0S(I),RUM,0(I,NM) 

CNOTUSED  IF  (I.EO.NOII)  WRtTE(6,930)  I.  Z(I,1).  ZOSd),  RUN,  0(1, NM) 

CNOTUSED  930  FORMAT(1SXI2,4(1XE12.5)'  (LEADING  EDGE)') 

CNOTUSED  IF  (I.EO.NOIB)  URITE(6,940)  I,  Z(I,1),  Z0Sd>,RUM,0( I ,NH) 

CNOTUSED  940  FORHAT(15XI2,4(1XE12.5)'  (TRAILING  EDGE)') 

950  CONTINUE 

00  J=1,NH 

DO  1=1, NO 

RCTH(I,J)  »R(I,J)»CTH(I,J) 

END  DO 
END  DO 

URITE(6,960) 

960  FORMAT(/////11X 

♦  >*****  DESIGN  CONDITIONS  AT  THE  UORKING  STATIONS  ♦♦♦♦♦'/// 

+  15X'J  RCTH'12X'H'10X'ENT'10X'BLO'10X'TNA'8X'UCTHO'8X 

♦  'D(BLO)/OM  PHI') 

DO  1=1, NO 

URITE(6,5965)  I 
DO  J«1,NH 

URITe(6,5905)  J,  RCTH(I,J),  H(I,J),  ENT(I,J),  BLO(I,J), 

♦  TNAd,J),  UCTHOd,J) 

CNOTUSED  +  ,DMBLOd,J) 

END  DO 
END  DO 
URITE(6,970) 

970  FO«MAT(/////11X 

♦  >*****  INITIAL  ASSUMPTION  OF  MERIDIONAL  STREAMLINES  ♦♦♦♦♦'/17X 

♦  '(THIS  ASSUMPTION  IS  A  PREVIOUS  THROUGH  FLOW  SOLUTION  IF  THIS  ', 

♦  'THROUGH  FLOW  CALCULATION  IS  MOT  THE  FIRST  ONE.)') 

CNOTUSED  DO  J=1,NM 

CNOTUSED  WRITE(6,980)  J,  OMF(J) 

CNOTUSED  980  FORMAT(11X'I  ='I3'  OMF  ='E12.5) 

CNOTUSED  END  DO 

DO  1=1, NO 

TEMP  =Z( I , 1 ) 

TEH  =SIN(  RUMROd)  ) 

SINRUMd)  =TEM 

DO  J=2,NM 

CNOT  IF  0-LINE  IS  STRAIGHT  RUMR(I,J)  =RUNROd) 

Zd,J)=TEMP  -  0(I,J)»TEM 
END  DO 
END  DO 

NOM1  =NO-1 

DO  I=2,NOM1 


CUR(I,1) 

=(  (  R(I-1,1)-R(I,1)  )/(  Z(I-1,1)-Zd,1)  ) 

♦ 

-  (  Rd,1)-Rd*1,1)  )/(  Zd,1)-Z(I  +  1,1)  )  )*2. 

♦ 

/(  Z(I-1,1)-Zd*1,1)  ) 

CUR(I,NM) 

={  {  R(I-1,NM)-Rd,MM)  )/(  Z(I-1,NM)-Z(I,NM)  ) 

♦ 

-  (  R(I,NM)-R(I+1,NM)  )/(  Z(I,NM)-Zd  +  1,NM)  )  ) 

•f 

END  DO 

•  2.  /  (  Z(I-1,NM)-Z(I+1,NM)  ) 

CUR(1,1) 

=CUR(2,1)  *.5 

CUR(HO,1) 

=CUR(NOM1,1)  *.5 

CUR(1,NM) 

=CUR(2,NM)  *.5  -B-25- 

CUR(NO,NM) 

=CUR{NOM1,NM)*.5 

0479  WRITE(6,990) 

0400  990  FORMAT(///15X'J'6X'PMI'10X'CUR'12X'M') 

0481  DO  I»1,N0 

0482  URITE(6,5965)  1 

0483  UR1TE(6,5905)  1,  PHIDKI),  CURCI.I),  SM(I,1) 

0484  WRtTE(6,5905)  NM,  PHtDN(l),  CUR(l.NM).  SMd.NM) 

0485  END  DO 

0486  UR1TE(6,1000) 

0487  CNOT  1000  FORMAT(///15X' J'SX'Q' 12X'R'10X'PHI '  lOX'CUR'IIX'CMMOX'OEM' 12X'M'/) 

0488  1000  FORMAT(///15X'J'8X'0'12X'R'11X'CH'10X'OEK'10X'CTH') 

0489  DO  I>1,NQ 

0490  URITE(6,5965}  1 

0491  DO  J>1,NH 

0492  URITE(6,5905)  J,  0(1, J),  R(l.J),  DEN<1,J),  CTH{I,J) 

0493  END  DO 

0494  END  DO 

0495  CNOTUSED  URITE(6,1010)  NB 

0496  CNOTUSED  1010  FORMAT(/////1 1X'+*+++  THE  CASCADE  GEOHETRIES  (  NB=M2'  )  +♦♦+♦'/// 

0497  CNOTUSED  ♦  15X'J  IPRF  TMPC'/) 

0498  CNOTUSED  URITE(6, 1020)  (  J,  IPRF(J),  TMPC(J),  J=1,NM) 

0499  CNOTUSED  1020  FORNAT(14X12,4X12.2XE12.5} 

0500 

0501  RETURN 

0502 

0503  5905  FORMAT(I16,8E13.S) 

0504  5965  FORHAT( '0' 10X' 1=' 12) 

0505  END 

PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0 

SCOOE 

7119 

PIC 

CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1 

SPOATA 

1754 

PIC 

CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2 

SLOCAL 

832 

PIC 

CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

3 

MFLOW 

5024 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

4 

HLIN 

3084 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

5 

NONAXI 

1232 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

6 

QLIN 

1412 

PIC 

OVR  REL 

GBL 

SNR 

NOEXE 

RD 

URT 

LONG 

7 

XY 

4 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

8 

NU 

120 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

9 

10 

4 

PIC 

OVR  REL  GBl 

SHR 

NOEXE 

RD 

URT 

LONG 

10 

lOS 

24 

PIC 

OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

20609 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000 

NUFLOU 

4# 

VARIABLES 

Address 

Type 

Name 

Attributes 

References 

2-0000010C 

R*4 

AR 

O 

41 

303 

306 

** 

R*4 

CMl 

306= 

309 

310 

312 

2-000001B4 

R*4 

CMNUC1 

232= 

234 

248(2)= 

250 

2-000001B8 

R*4 

CMNUC2 

232= 

234 

248 

•* 

R*4 

CORUM I 

400= 

403 

2-000001DO 

R*4 

CPTC 

294= 

295 

317 

2-000001E0 

R*4 

DAR 

303= 

313 

2-0000018C 

R*4 

DEGRAD 

139= 

411 

2-0000019C 

R*4 

OENREF 

187= 

190= 

192= 

196 

299 

10-00000000 

R*4 

DMPCM 

COMM 

132 

160= 

273 

10-00000004 

R*4 

DMPG 

COMM 

132 

160= 

273 

10-00000008 

R*4 

OMPL 

COMM 

132 

160= 

273 

2-000001CO 

R*4 

EPS 

232= 

234 

236 

237 

10-OOOOOOOC 

R*4 

EPSCM 

COMM 

132 

160* 

273 

10-00000010 

R*4 

EPSG 

COMM 

132 

160= 

273 

10-00000014 

R»4 

EPSL 

COMM 

132 

160= 

273 

3-0000002C 

R*4 

G 

COMM 

110 

216= 

283 

294= 

306 

2-00000194 

1*4 

I 

172(2)= 

173(2)= 

176(3)= 

177(3)= 

179( 

325= 

180(2)* 


195* 

196 

197 

206= 

207(2) 

208(2) 

209(2) 

217(2) 

218(2)* 

219(2)* 

223(3)= 

275(2)= 

276(2)= 

277(3)= 

279(3)= 

281(2) 

282(2}* 

283(2)= 

284(2}* 

285(2}* 

286(2)= 

296(3)= 

300= 

301(2) 

302(2) 

306(6} 

309 

310 

312 

313 

326(2)= 

327(2) 

328(2)= 

329(2)= 

330(2)* 

335= 

336 

337 

398= 

399 

400 

401 

403(2) 

409= 

411(4) 

412 

417 

428= 

429(3) 

438= 

439 

441(6) 

456= 

457 

458 

459 

462(2) 

466= 

467(11) 

470(11) 

481  = 

482 

483(3) 

484(3) 

489* 

490 

492(5) 

AP- 000000043 

1*4 

IBFLOU 

4 

142(2) 

143 

213 

342 

350 

397 

9-00000000 

1*4 

ICN 

COMM 

131 

149= 

151 

272 

AP-000000083 

1*4 

IDSN3 

4 

269 

Ap-oooooooca 

1*4 

IN 

4 

148 

149 

160 

172 

173 

176 

177 

179 

180 

184 

185 

216 

217 

218 

219 

223 

224 

232 

240 

242 

244 

294 

296 

325 

326 

327 

328 

329 

330 

2-00000198 

1*4 

J 

179(2)= 

180(2)= 

184(2)= 

185(2)= 

194= 

196 

197 

216(2) 

217(2)= 

218(2)= 

219(2)= 

281(2)= 

282(2)= 

284(2)= 

285(2)= 

286(2) 

311  = 

312 

313(2) 

316= 

317 

326(2)= 

327(2)= 

328(2) 

329(2)= 

330(2)= 

334= 

336 

337 

344= 

345(2) 

402= 

403(2) 

427= 

429(3) 

440= 

441(7) 

460= 

462(2) 

491  = 

492(6) 

•* 

1*4 

K 

240(2)= 

241(2)= 

242(2)= 

243(2)= 

244(2)= 

245(2)= 

249= 

250(2) 

251(2) 

AP-ooooooioa 

1*4 

LG 

4 

142(2) 

143 

183 

189 

2-000001A8 

1*4 

NCMNU 

224= 

225 

226 

229 

240 

241 

242 

243 

244 

245 

249 

253 

255(2) 

261 

263A 

4-00000000 

1*4 

NM 

COMM 

117 

149= 

177 

179 

180 

184 

185 

194 

203 

209 

216 

217 

218 

219 

223 

253 

255(2) 

261 

272 

279 

281 

282 

283 

284 

285 

286 

296 

302(2) 

306(2) 

310 

316 

326 

327 

328 

329 

330 

334 

388 

402 

411 

427 

UO 

460 

470(11) 

476(2) 

477(2) 

484(3) 

491 

8-00000000 

1*4 

NNM1 

COMM 

130 

203= 

303 

311 

343 

344 

6-00000038 

1*4 

NQ 

COMM 

120 

149* 

172 

173 

176 

177 

179 

180 

184 

185 

195 

206-  • 

217 

218 

219 

223 

272 

275 

276 

277 

279 

281 

282 

284 

285 

286 

296 

300 

326 

327 

328 

329 

330 

335 

388 

398 

409 

428 

438 

456 

465 

475 

477 

481 

489 

6-00000580 

1*4 

NOB 

COMM 

120 

149= 

205 

272 

6-0000057C 

1*4 

NO  I 

COMM 

120 

149= 

204 

205 

272 

2-000001AO 

1*4 

N0I1 

204= 

265A 

320A 

412 

2- 000001 A4 

1*4 

NOIB 

205= 

265A 

320A 

417 

** 

1*4 

NOMI 

465= 

466 

475 

477 

3-00000030 

R*4 

OMG 

COMM 

110 

160= 

273 

350 

2- 000001 CC 

R*4 

PHO 

232= 

265A 

294= 

320A 

8-00000004 

R*4 

PI 

COMM 

130 

1370 

139 

140 

299 

2-00000190 

R*4 

RADDEG 

140= 

208 

209 

7-00000000 

R*4 

RAS 

COMM 

128 

160* 

273 

350 

2- 000001 BC 

R*4 

RERR 

232= 

234 

253(2) 

255 

R*4 

RI1 

399= 

403 

2-000001AC 

R*4 

RNUC1 

232= 

234 

247(2)= 

251 

2-0O0001B0 

R*4 

RNUC2 

232= 

234 

247 

2-00000108 

R*4 

RR1 

301= 

302 

313 

2-000001D4 

R*4 

TEM 

299= 

306 

343= 

345 

458= 

459 

462 

** 

R*4 

TEHP 

457= 

462 

2-000001C4 

R*4 

VO 

232= 

265A 

294= 

320A 

2-000001C8 

R*4 

VOC 

232= 

26SA 

294* 

320A 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

3-00000904 

R*4 

A 

COMM 

616 

(14,  11) 

tio 

3-00001138 

R*4 

BLO 

COMM 

616 

(14.  11) 

110 

180= 

282 

306(2) 

441 

3-00000034 

R*4 

CM 

COMM 

616 

(14,  11) 

110 

217= 

284 

309= 

310= 

312= 

326= 

492 

2-00000000 

R*4 

CMNU 

80 

(20) 

134 

242= 

243 

250(2)= 

263A 

8-00000008 

R*4 

COSRUM 

COMM 

56 

(14) 

130 

207= 

306 

400 

2-00000050 

R*4 

CPT 

44 

(11) 

134 

263A 

265A 

317= 

320A 

2-0000007C 

R*4 

CPTNU 

80 

(20) 

134 

244= 

245 

263A 
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3-0000029C 

R*4 

CTH 

COMM 

616 

(14.  11) 

110 

179= 

4-00000404 

«*4 

CUR 

CONN 

616 

<14,  11) 

117 

467= 

476(2)= 

477(2)= 

3-OOOOOC3C 

R*4 

DEN 

CONN 

616 

(14,  11) 

110 

184= 

3-00001 10C 

R*4 

OMF 

COMM 

44 

(11) 

110 

3-OOOOOEA4 

R*4 

ENT 

COMM 

616 

(14,  11) 

110 

185= 

3-00000000 

R*4 

GS 

COMM 

44 

(11) 

110 

216= 

3-0000076C 

R*4 

H 

COMM 

616 

(14,  11) 

110 

219= 

2-OOOOOOCC 

R*4 

PHID1 

56 

(14) 

134 

176= 

2-00000104 

R*4 

PHIDN 

56 

(14) 

134 

176= 

4-0000026C 

R*4 

PHIR 

COMM 

616 

(14.  11) 

117 

208= 

6-0000003C 

R*4 

0 

COMM 

616 

(14.  11) 

120 

401  = 

492 

4-00000004 

R*4 

R 

COMM 

616 

(14.  11) 

117 

218= 

260 

261 

302(2) 

313= 

429 

467(4) 

3-00000504 

R*4 

RCTH 

COMM 

616 

(14.  11) 

110 

429= 

2-0000013C 

R*4 

RNU 

80 

(20) 

134 

240= 

255(2) 

260= 

6-000002A4 

R*4 

RUHR 

COMM 

616 

(14.  11) 

120 

6-00000000 

R*4 

RUMRO 

COMM 

56 

(14) 

120 

172= 

411 

458 

8-00000040 

R*4 

S INRUM 

COMM 

56 

(14) 

130 

459= 

4-0000073C 

R*4 

SM 

COMM 

616 

(14.  11) 

117 

177(2)^ 

5-00000000 

R*4 

TNA 

COMM 

616 

(14,  11) 

119 

329= 

5-00000268 

R*4 

UCTHO 

COMM 

616 

(14,  11) 

119 

330= 

4-000009A4 

R*4 

2 

COMM 

616 

(14.  11) 

117 

173= 

462= 

467(6) 

6-OOOOOSOC 

R*4 

ZOH 

COMM 

56 

(14) 

120 

6-00000544 

R*4 

zas 

COMM 

56 

(14) 

120 

PARAMETER  CONSTANTS 

Type  Name 

• 

References 

1*4  NCMMX 

104« 

134(3) 

225 

226 

1*4  NHNX 

104# 

110(10) 

117(5) 

119(2) 

120(2) 

1*4  NOMX 

104# 

110(8) 

117(5) 

119(2) 

120(5) 

LABELS 

Address 

Label 

References 

1-00000270 

110' 

152 

153# 

0-0000052C 

180 

213 

216# 

0-00000664 

190 

213 

223# 

1-000002E8 

192' 

229 

230# 

0-0OOOOF5O 

200 

213 

294# 

0-00001208 

210 

213 

325# 

0-00001 1B3 

250 

220 

291 

322 

334# 

0-000013BB 

300 

331 

342# 

1-0000034A 

710' 

350 

351# 

1-00000465 

740' 

388 

389# 

1-0000051 A 

910' 

413 

414# 

1-00000530 

920' 

417 

418# 

0-000015B0 

950 

409 

415 

425# 

1-00000547 

960' 

433 

434# 

1-000005CE 

970' 

446 

447# 

1-00000683 

990' 

479 

480# 

1-0000069F 

1000' 

486 

488# 

1-000006C6 

5905' 

411 

441 

483 

484 

492 

1-000006CE 

5965' 

439 

482 

490 

504# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name 


References 


ENTHAL 

FORSCLOSE 

FORSOPEN 


265 

289 

268 


320 

-B-28- 


R*4  MTHSCOS 
R*4  MTHSSIN 


207 

4S8 


306 


R*4  HTHSSORT 
NUF 

0001 


313 

263 


KEY  TO  REFERENCE  FLACS  | 

*  -  Value  Modified  | 

#  •  Defining  Reference  I 

A  -  Actual  Argunent,  possibly  modified  | 

D  •  Data  Initialization 

<n)  -  Nimber  of  occurrences  on  line  | 

4. - - - - - - - - - - - + 


COMMAND  QUALIFIERS 

F/LIS/CHE/CRO  NUFLOU 

/CHECK>(BOUNDS.OVERFLOU,UNOERFLOU) 

/OEBUG>(NOSrHBOLS ,  TRACEBACK) 

/STANOARDsfNOSYNTAX, NOSOURCE  FORM) 

/SHOU=( NOPREPROCESSOR , NO I NCLUDE , MAP , NOO I CT I ONAR Y , S I NGLE ) 
y WARN I NGSs ( GENERAL , NOOECLAR AT IONS) 

/CONTINUATIONS*!?  /CROSS  REFERENCE  /NOO  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /I4  /NOHACHINE  CODE  /OPTTmIZE 


16-Jun-1988  13:27:17  VAX  FORTRAN  V4.0-2 

19-Jun-1986  15:48:19  DUAO: [CHIANG.3037.SCM1OHlRSH.FOR;46 


C 

C++++-*-M'*++  SUBROUTINE  QHIRSH  +•*-*■+♦♦♦♦++ 

C 

SUBROUTINE  OHIRSH  (.  IBFLOW,  LG)  IN 

C  {3037-QHITSH) 

CGAS  TO  BE  USED  IF  THE  FLUID  IS  A  GAS 

CRUM  SHOULD  BE  USED  INSTEAD  OF  THE  NEARBY  STATEMENT  IF  0-LINE  IS  NOT  A 
C  STRAIGHT  LINE 

C  REFERENCED  BY  MAIN  (SCM) 

C  REFERENCES  AKIMAI,  AKIMAO.DENSI ,  INTSPL  (4  TIMES),  MLINE  (TWICE), 

C  HTHSCOS,  NTHSSIGN,  HTHSSIN  (TWICE),  MTHSSQRT,  HTHSTAN, 

C  ORZ  (TWICE),  ft  OPLINE  (5  TIMES) 

C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2. 

C  REVISED  19JUN86  FOR  V3.1 

PARAMETER  (  NHMX=11,  NOMX=14) 

PARAMETER  (  NWMX=MAX(NMMX,NOMX)  ) 

PARAMETER  (  NVWMX=NWMX*7,  NWSMX=NWMX*4-10) 

CGAS  COMMON/GASCON/  SHR,  GASC,  CP,  PREF,  TREF 

COMMON/MFLOW/  GS(NMMX),  G,  OMG, 

*  CM(NOMX,NNNX),  CTHINOMX.NMMX), 

*  RCTH(NOMX,NMMX),  H(NOMX,NMMX) ,  A(NOMX,NMMX),  DEN(NOMX,NMMX), 

+  ENT(NOMX,NMMX),  OMF(NMMX),  BLO(NOMX,NMMX) 

CNOT  +  ,  DMBLO(NaMX,NMMX), 

CNOT  *  OMRCTH(NOMX,NMMX),  DMCM(NOMX,NMMX),  WTH(NOMX,NMMX) 

COMMON/MLIN/  NM,  R(NaMX,NMHX),  PKIR(NOMX,NMMX), 

*  CURINOMX.NMMX),  SM(NOMX,NMMX),  Z(NOMX,NMMX) 

COMMON/NONAXI/  TNA(NOMX,NMMX),  WCTHD(NOMX,NMHX) 

COMMON/OLIN/  RUMROINOMX),  NO,  0(N0MX,NMMX) 

CNOT  +  ,  RUMR(NQMX,NMMX),  ZOH(NOMX),  ZOS(NOMX),  NOI,  NOB 

COMMON/XY/  RAS,  XM(NOMX,NMMX) 

COMMON/ 10/  I CM 

COMMON/IOS/  DMPCM,  DMPG,  DMPL,  EPSCM,  EPSG,  EPSL 

COMMON/OS/  ITRL,  MXITC,  MXITG 

DIMENSION  CMSML(NOMX),  CMN(NMMX),  COE(NMMX), 

*  DMBLO(NaMX,NMMX),  OMCM(NCIMX,NHMX), 

*  SAVE(NMMX),  VW(NVWMX), 

*  WTH(NOMX,NMNX),  WF(NWMX),  WFl(NWNX),  WF2(NWMX),  WINT(NWMX), 

+  WL(NWMX),  WORK(NWSMX),  WX(NWMX) 


C3100  CONSTANTS  ***** 

DATA  CMSMLC/.OV,  MAXITC,  MAXITG,  MAXITL/  50,  50,  200/, 

♦  PI /3. 14159265359/ 

C3105  INITIAL  ***** 

DATA  MXITC,  MXITG/  0,  0/ 

IF  (LG.LE.1)  CP=999. 

N1  =0 

N2  =NM 

N3  =NM4NM 

N4  3N3>NM 

N5  °N4«NM 

N6  xN5'»NM 

M7  *M6*NM 

NM2P3  sN3*3 

MM7  =N7+MM 

NMM1  zNM- 1 

NMM2  =NNM1 - 1 

NMS  =N5-10 

NOP3  =NO+3 

NOS  =NO*4-10 

PI2  =PI+P1 

CINOUE  WRITE(6,3120) 

CINOUE  3120  FORMAT(1H1//1H010X'+++++  WELCOME  TO  SUBROUTINE  QHIRSH','  *****’//) 
C3200  ***** 

TEM  =(G+G)*CMSMLC/PI 

DO  1=1, NO 

CMSML(I) 

+  =TEM/  (  (  0EN(I,1)+0EN(I,NM)  )*(  R( I , 1 )+R( I ,NM)  )*Q(1,NM)  ) 


ISTOPG  =0 
ISWCM  «0 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 


CALL  0RZ(  NO,  NM,  Q,  R,  Z,  RUHRO) 

CRUM  CALL  ORZ(NQ,NH,Q,R,Z.RUMR) 

ITRL  =0 

C3300  ITERATE  UNTIL  ICONML=0 
3300  ITRL  =ITRL+1 

IF  (ITRL.GT.MAXITL)  THEN 
URITE(6,3310)  ITRL 

3310  FORMAT{1HO,10X, '*•••*  CONVERGENCE  OF  THE  MERIDIONAL  STREAMLINE' 

+  SOLUTION  UAS  NOT  ACHIEVED  *••**'/'  ITRL  ='I4) 

PRINT  *,  'NOT  CONVERGED...  MXITC,  MXITG,  ITRL  =',  MXITC,  MXITG, 

♦  ITRL 

ICON  <ITRL 

STOP  'OHIRTH.3315' 

C  RETURN 

END  IF 

C3320 

CALL  MLINE  (  0,  NO,  NM,  RAS,  0,  R,  Z,  SM,  PHIR,  CUR,  XM, 

♦  ICON,  UF,  UL,  UF1,  UF2) 

LINE  =3320 

IF  (ICON.NE.O)  GOTO  9000 
DO  3350  J=1,NM 
DO  1=1, NO 

WX<I)=SM(I,J) 

UF(n=DEN(I,J) 

END  DO 

C3330 

CALL  SPLINE(  UX,  UF,  NO,  UL,  UF1,  UF2,  WORK,  NOS,  ICON) 

LINE  =3330 

IF  (ICON.NE.O)  GOTO  9000 
00  ‘  1=1, NO 

0MCM(I,J)=WF1(I) 

END  DO 

DO  1=1, NO 

UF(I)=BLO(I,J) 

END  DO 

C3340 

CALL  AKIMAO(  UX,  UF,  NO,  UF1,  UF2,  UORK,  NOP3,  ICON) 

LINE  =3340 

IF  (ICON.NE.O)  GOTO  9000 
00  1=1, NO 

OMBLO(I,J)=UF1(I) 

END  DO 
3350  CONTINUE 

SUMR£S=0. 

ICONML=0 
DO  37001=1, NO 
CMSMLI  =CMSML(I) 

RUMROI  =RUMRa(I) 

DO  3420J=1,NM 

IF  {  R(I,J).LT.1.E-6  .AND.  RCTH(I,J).NE.O.  )  THEN 
URITE{6,3410)  I,  J,  RCTH(I,J),  I,  J,  R(I,J) 

3410  FORMAT (1 HOI OX '****•  ERROR  IN  SUBROUTINE  OHIRSH  ;  RCTH('I3'.' 

♦  I3')='E12.5'  AT  R('I3','I3)='E12.5'  ****•') 

ICON=-10 

STOP  'OHIRSH. 3410' 

C  RETURN 

END  IF 

IF  (  RCTH(I,J).EO.O.  .AND.  R( I , J).LT. 1 .E-6  ) 

♦  CTH(I,J)=-UCTHO(I,J) 

IF  (  R(I,J)  .GE.  1.E-6)  CTH(I,J)=RCTH(I,J)/R(I,J)-UCTHD(I,J) 
CSKIP  UTH(I,J)=CTH(I,J)-OMG»R(I,J) 

IF  (LG.E0.1  .OR.  IBFLOU.G1.0)  GOTO  5420 

0EN(I,J)  =DENSI(  H(I,J),  ENT(I,J),  CM(I,J),  CTH(I,J)) 

3420  CONTINUE 

DO  J=1,NM 
UX(J)  =0(1, J) 

UF(J)  =H(I,J) 

END  DO 
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CALL 


SPL1NE(  WX,  WF,  NH,  WL,  UF1,  WF2,  WORK,  HHS,  ICON) 


LINE  =3430 

IF(ICON.NE.O)  GO  TO  9000 
DO  J=1,NH 

VW(N1+J)  =UF1(J) 

UF<J)  =ENT(I,J)  ■ 

END  DO 


C3440 

CALL  SPLINEC  UX,  UF,  NH,  UL,  UF1,  UF2,  WORK.  NHS,  ICON) 

LINE  =3440 

IF(ICON.NE.O)  GO  TO  9000 
DO  J=1,NH 

VW(N2+J)  =WF1(J) 

WF(J)  =CTH(I,J)*R(I,J) 

END  DO 

C3450 

CALL  SPLINEC  WX,  WF,  NH,  WL,  WF1,  UF2,  WORK,  NHS,  ICON) 

LINE  =3450 

IF(ICON.NE.O)  GO  TO  9000 
DO  J=1,HH 

VU(N3+J)  =WF1(J) 

WFCJ)  =PHIR<I,J) 

END  DO 


C3460 

CALL  SPLINEC  WX,  WF,  NH,  WL,  WF1,  WF2,  WORK,  NHS,  ICON) 

LINE  =3460 
IFCICON.NE.O)  GO  TO  9000 
DO  J=1,NH 

VWCN4+J)  =WF1CJ) 

END  DO 


DO  3480J=1,NH 

IF  C  RCI,J)  .LT.  1.E-5)  THEN 
VWCN5+J)  =0. 

VWCN6+J)  =0. 

GOTO  3480 
END  IF 

CRUH  EP  =PHIRCI,J)-RUHRCI,J) 

EP  =PHIRCI,J)-RUHRQI 

CE  =COSCEP) 

COECJ)=CE 

DHCHCI.J)  -■(  OH8LOCI,J)/BLOCI.J)  ♦  VWCN4+J)/CE 

+  ♦  CURCI,J)*TANCEP)  ♦  SINC  PHIRCI.J)  )/RCI,J) 

+  *  OHCHCI,J)/DENCI, J)  )  •  CHCI.J) 

VWCN5+,I)  =2.*C  CURCI,J)*CE  •  0H:HC  I ,  J)*SIHCEP)/CHC  I ,  J)  ) 
+  ■  VWCN2+J)/CP 

VWCN6+J)  =2.*(  VWCN1  +  J)  -  CTHCI,  J)»VWCH3+J)/RCI,«') 

♦  -  C  HCI,J)  -  (  CTHCI,J)*CTHCI,.)  )*.5  )»VWCN2+J )/CP 

♦  +  TNACI,J)/DI!NCI,J)  ) 

3480  CONTINJE 


C3500  *••** 

MXITG  =MAXC  MXITG,  ITRG) 

ITRG  =0 

CHC  =CHC 1,1) 


3510  ITRG  =ITRG+1 

IF  CITRG.GT.HAXITG)  THEN 
WRITEC6,3520)  I,  ITRL 
3520  F0RHATC1H010X 

+  »»**•*  OVERALL  CONTINUITY  WAS  NOT  SATISFIED  AT  I='I3 

+  '  ,  ITRL='I5) 

IF  (IREV.EO.O)  THEN 
WRITEC6,3530) 

3530  FORHAT(1H*,74X, '  **♦♦♦') 

ELSE 

WRITE(6,3540) 

3540  FORHATC1H*,74X,',  BECAUSE  REVERSE  FLOW  OCCURS.  ****♦') 

END  IF 

ISTOPG=ISTOPC*1  -B-32- 

GOTO  3700 


END  IF 


0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

•4276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 


I REV  >0 

HXITC  >MAX(  MXITC,  ITRCM) 

ITRCM  *0 

3600  ITRCM  =ITRCM+1 

IF  (ITRCM. GT.MAXITC)  THEN 
URITE{6,3610)  I,  ITRL 

3610  FORMAT (1  HOI OX '*•••*  CM  CONVERGENCE  WAS  NOT  ACHIEVED  AT  I  ='I3 

+  '  ,  ITRL='I5'  ***••') 

ISTOPCM  =ISTOPCM+1 

GOTO  3700 
END  IF 

CMNd)  =CMC 

TEM  =0. 

IF  (ICM.EQ.2)  THEN 

DO  J-1,NM 

UF(J)  =(  VU(N6+J)  -  VU<N5+J)*CM(I,J)»CM(I,J)  )*.5 

END  DO 

C3620 

CALL  INTSPLC  UX,  UF,  NM,  UINT.  WL,  UF1,  UF2,  WORK,  NMS, 

+  ICON) 

LINE  =3620 

IF  (ICON.NE.O)  GOTO  9000 
DO  J=2,NM 

TEM  =WINT(J)+TEM 

CMN(J)  =SIGN{  SORT<  ABS(TEM)  ),  TEM)  +  CMC 

END  DO 

ELSE 

DO  J=1,NM 

WF(J)  =<  VU(N6+J)/CM(I,J)  -  vy(N5*J)*CM(t,J)  )*.5 

END  DO 

C3621 

CALL  INTSPL(  WX,  UF,  NM,  UINT,  UL,  UF1,  UF2,  WORK,  NMS, 

♦  ICON) 

LINE  =3621 

IF  (ICON.NE.O)  GOTO  9000 
DO  J=2,NM 

TEM  =WINT(J)+TEM 
CMN(J)  =TEM+CMC 

END  00 

END  IF 

ICONCM  =0 
DO  J=1,NM 

IF  (  ABS(  1.  -  CMN(J)/CM(I,J)  )  .GE.  EPSCM  )  ICONCM=ICONCM*1 
COEGUG  PRINT  *,  M,  J,  CMN,  CM  =',  1,  J,  CMN{J),  CM(I,J) 

IF  (CMN(J).LT.CMSMLI)  THEN 
IREV=IREV+1 

CCC  THE  ORIGINAL  PROGRAM  DOES  NOT  PRINT  i  STOP  HERE  --- 

PRINT  *,  'REVERSE  FLOW??  I , J,CMM,CMAV,EPSCM, ICONCM, CM  =', 

+  I,  J,  CMN,  CMSMLI/CMSMLC,  EPSCM,  ICONCM, 

+  (  CM(I,K),  K=1,NM) 

URITE(6,»)  'REVERSE  FLOW??  I ,J, CMN, CMAV, EPSCM, ICONCM, CM  =' , 

♦  I,  J,  CMN.  CMSMLI/CMSMLC,  EPSCM,  ICOA'CM, 

♦  (  CM(I,K),  X=1,NM) 

STOP  'QHIRSH.3628' 

ELSE 

CM(I,J)  =CM(I,J)  +  DMPCM*(  CMN(J)-CM(I,J)  ) 

END  IF 
END  DO 

CDEBUG  PRINT  »,  'I,  ICONCM,  ITRG,  ITRCM,  CM  =',  I,  ICONCM,  ITRG,  ITRCM, 
CDEBUG  ♦  (  CM(I,J),  J=1,NM) 

IF  (IREV.EO.O  .AND.  ICONCM. NE.O)  GOTO  3600 


CRUM 

CRUM 


DO  J=1,MM 

SAVE(J)  =PI2  *  R(I,J)  *  0EN(I,J)  •  COE(J)  *  BLO(I,J) 

WF(J)  =rM(l,J)*SAVE(J) 

UF(J)  =PI2  ♦  R{I,J)  *  DEN(I,J)  *  CM(I,J) 

+  *  COS(  PHIRd  ,J)-RUMR(I  .J)  )  *  BLO(I,J) 
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END  DO 


0318 

0319 

C3640 

0320 

CALL  IKTSPLC  UX.  WF.  MM,  WIMT,  WL,  WF1,  WF2,  WORK,  NMS,  ICON) 

0321 

0322 

LINE  =3640 

0323 

IF(ICON.ME.O)  GO  TO  9000 

0324 

VU<N7+1)=0.0 

0325 

DO  J=2,NM 

0326 

\/W(M7+J)  =VU<N7+J-1)+UINT(J) 

0327 

END  DO 

0328 

IF  (  ABS(  1.  -  VU(NM7)/G  )  .LT.  EPSG  )  GOTO  3660 

0329 

0330 

CDEBUG 

PRINT  '  I,  ITRG,  VW(MM7).  G,  EPSG  =',  1,  ITRG,  VW(NM7), 

0331 

COEBUG 

+  EPSG 

0332 

CRUM 

DO  J=1,NM 

0333 

CRUM 

SAVE(J)  =PI2  •  R(I,J)  •  DENd.J)  •  COST  PHIR(I.J)-RUMR(I,J)  ) 

0334 

CRUM 

+  *BLO(I,J) 

0335 

CRUM 

END  DO 

0336 

0337 

C3650 

0338 

CALL  INTSPLC  UX,  SAVE,  NM,  UINT,  UL,  UF1,  UF2,  WORK,  NMS,  ICON) 

0339 

0340 

IF  (ICON. HE. 0)  GOTO  9000 

0341 

INTU>0.0 

0342 

DO  J=2,NM 

0343 

INTU  sINTlH-UINTO) 

0344 

END  DO 

0345 

CMC  =CMC  +  0MPG*(  G-VU(NM7)  )/INTW 

0346 

GOTO  3510 

0347 

0348 

3660 

DO  J=1,NM 

0349 

UIMT(J)  =VU(N7+J) 

0350 

END  DO 

0351 

0352 

C3670 

0353 

CALL  AKIMAU  UINT,  UX,  NM,  GS,  NMM2,  UL,  UF1,  UORK,  NM2P3, 

0354 

* 

ICON) 

0355 

0356 

C 

LINE  *3670 

0357 

c 

IF(ICON.NE.O)  GO  TO  9000 

0358 

DO  J=1,NMM2 

0359 

UL(NM-J)  =UL(NHM1-J) 

0360 

END  DO 

0361 

RES  =0.0 

0362 

DO  J=2,NMM1 

0363 

RES  =RES+ABS(UL(J)-Q(I,J))**2 

0364 

IF  (  ABS(  1.-UL(J)/0(I,J)  )  .GE.  EPSL)  ICONHL=ICONHL+1 

0365 

Q<I,J)=Q(I,J)*0MPL*(UL(J)-Q(I,J)) 

0366 

ENC  DO 

0367 

0368 

CALL  QRZ(  NO,  NM,  Q,  R,  Z,  RUMRQ) 

0369 

CRUM 

CALL  ORZ(Na,NM,Q,R,Z,RUMR) 

0370 

0371 

SUMRES=SUMRES<RES 

0372 

3700 

CONTINUE 

0373 

0374 

PRINT*,  'SUMRES,  MXITC,  MXITG,  ITRL  =',  SUMRES,  MXITC,  MXITG,  ITRL 

0375 

IF  (ISTOP.NE.O)  THEN 

0376 

ICON  =ISTOPCM+ISTOG 

0377 

PRINT  *,  'ISTOPCM,  ISTOPG  =',  ISTOPCM,  ISTOPG 

0378 

STOP  'QHIRSH.3815' 

0379 

C 

RETURN 

0380 

END  IF 

0381 

IF(ICONHL.NE.O)  GO  TO  3300 

0382 

0383 

C3820 

0384 

CALL  MLINE  {  1,  NO,  NM,  RAS,  Q,  R,  Z,  SM,  PHIR,  CUR,  XM, 

0385 

* 

ICON,  UF,  UL,  UF1,  UF2) 

0386 

0387 

LINE  =3820 

0388 

IF  (ICON.NE.O)  GOTO  9000 

0389 

CINOUE 

URITE(6,3830) 

0390 

CINOUE 

3830  FORMAT(1H010X'*++++  CONVERGENGE  OF  THE  MERIDIONAL  STREAMLINE' 

0391 

CINOUE 

+  SOLUTION  UAS  ACHIEVED  ♦♦♦+♦') 

0392 

MXITC  =MAX<  MXITC,  ITERCM) 

0393 

MXITG  =MAX(  MXITG,  ITERG) 

0394 

ICON  =0 

0395 

RETURN 

0396 

-B-34- 

-B-34- 


0398  ♦  '  LINE,  I,  J,  ITRL  =  LINE,  I,  J,  ITRL 

0399  STOP  'OMIRSH.9010' 

0400  C  RETURN 
0401 

0402  END 


PROGRAM  SECTIONS 
Name 

0  SCOOE 

1  SPOATA 

2  SIOCAL 

3  MFLOW 

4  MLIH 

5  NONAXI 

6  OLIN 

7  XT 

8  10 
9  IQS 

10  OS 

Total  Space  Allocated 


ENTRY  POINTS 
Address 
0-00000000 


VARIABLES 

Address 

•« 

*« 

•* 

2-OOOOOBEO 

2- OOOOOB84 

9-00000000 

9-00000004 

9-00000008 

** 

9-OOOOOOOC 

9-00000010 

9-00000014 

3- 0000002C 
2-OOOOOBB8 


AP- 000000043 

8-00000000 

2-00000BC4 


*• 

2-OOOOOB08 

** 

2-OOOOOBEC 

** 

2-OOOOOCOO 

2-OOOOOBCO 

2-OOOOOB8C 


Type  Name 

OHIRSH 


Type  Name 

R*4  CE 
R*4  CMC 
R*4  CMSMLC 
R*4  CMSMLI 
R*4  CP 

R*4  OMPCM 
R*4  DMPG 
R*4  DMPL 
R*4  EP 
R*4  EPSCH 

R*4  EPSG 
R»4  EPSL 
R»4  G 
1*4  I 


1*4 

IBFLOU 

1*4 

ICM 

1*4 

ICON 

1*4 

ICONCM 

1*4 

ICONHL 

1*4 

INTU 

1*4 

I  REV 

1*4 

ISTOG 

1*4 

I  STOP 

1*4 

.  ISTOPCM 

1*4 

ISTOPG 

Bytes 

Attributes 

4763 

PIC 

CON 

REL 

LCL 

SHR 

EXE 

614 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

3632 

PIC 

CON 

REL 

LCL 

NOSHR 

NOEXE 

5024 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

3084 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

1232 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

676 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

620 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

4 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

24 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

12 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

19685 


Refereryies 

4# 


Attributes  References 


206* 

207 

208 

221* 

252 

268 

460 

73 

297 

135= 

294 

297 

52= 

211 

213 

COMM 

36 

305 

COMM 

36 

345 

COMM 

36 

365 

205= 

206 

208 

COMM 

36 

292 

297 

COMM 

36 

328 

COMM 

36 

364 

COMM 

22 

73(2) 

328 

74= 

75(6) 

105= 

119(2) 

127= 

128(2) 

146(4) 

148(5) 

151(5) 

199 

205 

208(9) 

257(2) 

274(2) 

292 

363 

364 

365(3) 

4 

150 

COMM 

35 

254 

93= 

99A 

103 

160A 

163 

170A 

261A 

265 

278A 

353A 

376= 

384A 

290= 

292(2)= 

297 

133= 

364(2)= 

381 

341  = 

343(2)= 

345 

229 

240= 

295(2) 

376 

375 

79= 

248(2)= 

376 

78= 

236(2)= 

377 

RD  NOURT  LONG 
RO  NOURT  LONG 
RO  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 
RD  URT  LONG 


211 

285  345(2>= 

300 

300 


211 

300 


345 


106(2) 

107(2) 

115= 

116(2) 

118= 

134* 

135 

136 

138(2) 

139(4) 

155 

156 

166 

176(2) 

186 

211(3) 

213(7) 

221 

225 

245 

297(2) 

397 

300(2) 

305(3) 

313(3) 

314 

111A 

114 

123A 

126 

142= 

173 

180A 

183 

190A 

193 

282 

320A 

323 

338A 

340 

388 

394= 

397 

300 

310 

310 

377 


2-OOOOOC04  1*4  ITERCM 
2-OOOOOC08  1*4  ITERG 
2-OOOOOBFO  1*4  ITRCM 


392 

393 
241 


242^  243(2)*  244 

-B-35- 


2-OOOOOBE8 

1*4 

ITRG 

219 

220= 

223(2)= 

224 

10-00000000 

1*4 

ITRL 

COMM 

37 

84= 

86(2)= 

87 

88 

91 

93 

225 

245 

374 

397 

2-OOOOOBCC 

1*4 

J 

104= 

106 

107 

116 

119 

128 

137= 

138(2) 

139(4) 

146(4) 

148(5) 

151(5) 

154= 

155(2) 

156(2) 

164= 

165(2) 

166(2) 

174= 

175(2) 

176(3) 

184= 

185(2) 

186(2) 

194= 

195(2) 

198= 

199 

200 

201 

205 

207 

208(10) 

211(5) 

213(11) 

256= 

257(5) 

266= 

267 

268 

273= 

274(5) 

283= 

284 

285 

291  = 

292(2) 

294 

297 

300 

305(4) 

312= 

313(5) 

314(3) 

325= 

326(3) 

342= 

343 

348= 

349(2) 

358= 

359(2) 

362= 

363(2) 

364(2) 

365(4) 

397 

** 

1*4 

K 

297(2)= 

300(2)= 

Ap-ooooooosa 

1*4 

LG 

4 

52 

150 

2-OOOOOBC8 

1*4 

LINE 

102= 

113= 

125= 

162= 

172= 

tl 

<M 

CO 

192= 

264= 

281  = 

322= 

387= 

397 

** 

1*4 

MAXITC 

460 

244 

*• 

1*4 

MAXITG 

460 

224 

•* 

1*4 

MAXITL 

460 

87 

10-00000004 

1*4 

MXITC 

COMM 

37 

500 

91 

241(2)= 

374 

392(2)= 

10-00000008 

1*4 

MXITG 

COMM 

37 

500 

91 

219(2)= 

374 

393(2)= 

•« 

1*4 

Ml 

53= 

165 

213 

2-OOOOOB88 

1*4 

N2 

54= 

175 

211 

213 

2-00000B8C 

1*4 

N3 

55= 

56 

60 

185 

213 

2-OOOOOB90 

1*4 

N4 

56= 

57 

195 

208 

2-00000B94 

1*4 

NS 

57= 

58 

64 

200 

211 

257 

274 

2-00000B98 

1*4 

N6 

58= 

59 

201 

213 

257 

274 

2-OOOOOB9C 

1*4 

N7 

59= 

61 

324 

326(2) 

349 

4-00000000 

1*4 

NM 

COMM 

28 

54 

55(2) 

56 

57 

58 

59 

61 

62 

75(3) 

81A 

99A 

104 

137 

154 

160A 

164 

170A 

174 

180A 

184 

190A 

194 

198 

256 

261 A 

266 

273 

278A 

283 

291 

297 

300 

312 

320A 

325 

338A 

342 

348 

353A 

359 

368A 

384A 

2-OOOOOBAO 

1*4 

NM2P3 

60= 

353A 

** 

1*4 

NM7 

61  = 

328 

345 

•• 

1*4 

NMMI 

62= 

63 

359 

362 

2-OOOOOBA4 

1*4 

NMM2 

63= 

353A 

358 

2-00000BA8 

1*4 

NMS 

64= 

160A 

170A 

180A 

190A 

261A 

278A 

320A 

338A 

6-00000038 

1*4 

NQ 

COMM 

31 

65 

66 

74 

81A 

99A 

105 

111A 

115 

118 

123A 

127 

134 

368A 

384A 

2-OOOOOBAC 

1*4 

NQP3 

65= 

123A 

2-OOOOOBBO 

1*4 

NOS 

66= 

111A 

3-00000030 

R*4 

ONG 

COMM 

22 

** 

R*4 

PI 

460 

67(2) 

73 

** 

R*4 

PI2 

67= 

313 

7-00000000 

R*4 

RAS 

COMM 

33 

99A 

384A 

** 

R*4 

RES 

361= 

363(2)= 

371 

** 

R*4 

RUMRQl 

136= 

205 

2-00000804 

R*4 

SIMRES 

132= 

371(2)= 

374 

2-00000B84 

R*4 

TEM 

73= 

75 

253= 

267(2)= 

268(2) 

284(2)= 

285 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

3-00000904 

R*4 

A 

COMM 

616 

(14,  11) 

22 

3-00001138 

R*4 

BLO 

COMM 

■>616 

(14.  11) 

22 

119 

208 

313 

3-00000034 

R*4 

CM 

COMM 

616 

(14,  11) 

22 

151A 

208 

211 

221 

257(2) 

274(2) 

292 

297 

300 

305(3)= 

314 

2-00000038 

R*4 

CMN 

44 

(11) 

39 

252= 

268= 

285= 

292 

294 

297 

300 

305 

2-00000000 

R*4 

CMSML 

56 

(14) 

39 

75= 

135 

2-00000064 

R*4 

COE 

44 

(11) 

39 

207= 

313 

3-0000029C 

R*4 

CTH 

COMM 

616 

(14.  11) 

22 

146= 

148= 

151A 

176 

213(3) 

4-000004D4 

R*4 

CUR 

COMM 

616 

(14,  11) 

28 

99A 

208 

211 

384A 

3-OOOOOC3C 

R*4 

DEN 

COMM 

616 

(14,  11) 

22 

75(2) 

107 

151  = 

208 

-B-36- 

213 

313 

2-00000090 

R»4 

DMBLO 

616 

(14,  11) 

39 

128= 

208 

2-000002F8 

R*4 

OMCM 

616 

(14,  11) 

39 

116= 

208(2)= 

211 

3-00001 IOC 

R*4 

OMF 

COMM 

44 

(11) 

22 

3-OOOOOEA4 

R*4 

ENT 

COMM 

616 

(14,  11) 

22 

151A 

166 

3-00000000 

R*4 

GS 

COMM 

44 

(11) 

22 

353A 

3-0000076C 

R*4 

H 

COMM 

616 

(14,  11) 

22 

151A 

156 

213 

4-0000026C 

R*4 

PHIR 

COMM 

616 

(14,  11) 

28 

99A 

186 

205 

208 

384A 

6-0000003C 

R*4 

0 

COMM 

616 

(14,  11) 

31 

75 

81A 

99A 

155 

363 

364 

365(3)= 

368A 

384A 

4-00000004 

R«4 

R 

COMM 

616 

(14,  11) 

28 

75(2) 

81A 

99A 

138 

139 

146 

148(2) 

176 

199 

208 

213 

313 

368A 

384A 

3-00000504 

R*4 

RCTH 

COMM 

616 

(14,  11) 

22 

138 

139 

146 

148 

6-00000000 

R*4 

RUMRO 

COMM 

56 

(14) 

31 

81A 

136 

368A 

2-00000560 

R*4 

SAVE 

44 

(11) 

39 

313= 

314 

338A 

4-0000073C 

R»4 

SM 

COMM 

616 

(14,  11) 

28 

99A 

106 

384A 

5-00000000 

R*4 

TNA 

COMM 

616 

(14,  11) 

30 

213 

2-0000058C 

R»4 

VU 

392 

(98) 

39 

165= 

175= 

185= 

195= 

200= 

201  = 

208 

211(2)= 

213(4) 

257(2) 

274(2) 

324= 

326(2)= 

328 

345 

349 

5-00000268 

R*4 

UCTHO 

COMM 

616 

(14.  11) 

30 

146 

148 

2-0000097C 

R*4 

UF 

56 

(14) 

39 

99A 

107= 

111A 

119= 

123A 

156= 

160  a 

166= 

170  a 

176= 

180A 

186= 

190  A 

257= 

261A 

274= 

278a 

314= 

320A 

384A 

2-00000964 

R*4 

UF1 

56 

(14) 

39 

99A 

111A 

116 

123A 

128 

160  A 

165 

170A 

175 

180A 

185 

190A 

195 

261 A 

278A 

320A 

338A 

353A 

384A 

2-000009EC 

R»4 

UF2 

56 

(14) 

39 

99A 

111A 

123A 

160  A 

170A 

180A 

190A 

261 A 

278A 

320A 

338A 

384A 

2-00000A24 

R*4 

WINT 

56 

(14> 

39 

261 A 

267 

278A 

284 

320A 

326 

338a 

343 

349= 

353A 

2-00000A5C 

R*4 

UL 

56 

(14) 

39 

99A 

111A 

160A 

170A 

180A 

190A 

261A 

278A 

320A 

338A 

353A 

359(2)= 

363 

364 

365 

384A 

2-00000A94 

R*4 

WORK 

184 

(46) 

39 

111A 

123A 

160A 

170A 

180A 

190A 

261A 

278A 

320A 

338A 

353A 

2-00000714 

R*4 

WTH 

616 

(14,  11) 

39 

2-OOOOOB4C 

R*4 

WX 

56 

(14) 

39 

106= 

111A 

123A 

155= 

160A 

170A 

180A 

190A 

261A 

278A 

320A 

338A 

353A 

7-00000004 

R*4 

XM 

COMM 

616 

(14,  11) 

33 

99A 

384a 

4- 00000  M4 

R»4 

Z 

COMM 

616 

(14.  11) 

28 

81A 

99A 

368A 

38^A 

PARAMETER  CONSTANTS 


Type  Name  References 


1*4 

NMMX 

17# 

18 

22(10) 

28(5) 

30(2) 

31 

33 

39(6) 

1*4 

NQMX 

17# 

18 

22(8) 

28(5) 

30(2) 

31(2) 

33 

39(4) 

1*4 

NVWMX 

19# 

39 

1*4 

NUMX 

18# 

19(2) 

39(6) 

1*4 

NUSMX 

19# 

39 

LABELS 


Address  Label  References 


0-0000015C 

3300 

86# 

381 

1-OOOOOOOC 

3310' 

88 

89# 

3350 

104 

130# 

1-00000140 

3410' 

139 

140# 

0-00000565 

3420 

137 

150 

152# 

0-OOOOOA32 

3480 

198 

202 

-B-37- 

216# 

O-OOOOOAM 

3510 

223# 

346 

1-0000019C 

3520' 

225 

226# 

1-000001E2 

3530' 

230 

231# 

1-000001 FO 

3540' 

233 

234# 

0-OOOOOB04 

3600 

243# 

310 

1- 0000021 C 

3610' 

245 

246# 

0-00001034 

3660 

328 

348# 

0-00001148 

3700 

134 

237 

249 

372# 

0-00001234 

9000 

103 

114 

126 

163 

282 

323 

340 

388 

193 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

References 

AKIMAI 

353 

AKIMAO 

123 

R*4 

DENS  I 

151 

INTSPL 

261 

278 

320 

338 

MLINE 

99 

384 

R*4 

MTHSCOS 

206 

R»4 

MTHSSIGN 

268 

R*4 

MTHSSIN 

208 

211 

R*4 

MTHSSORT 

268 

R»4 

MTHSTAN 

208 

OR2 

81 

368 

SPLINE 

111 

160 

170 

180 

190 


I  KEY  TO  REFERENCE  FLAGS 

I  =  -  Value  Modified 

I  #  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 
I  D  -  Data  Initialization 

I  (n)  -  Nunber  of  occurrences  on  line 

+ - - - - - ♦ 


COMMAND  QUALIFIERS 

F/LIS/CHE/CRO  QHIRSH 

/CHECK=(BOUNDS, OVERFLOW, UNDERFLOW) 

/DEBUGS ( NOSYHBOLS , TR ACEBACK ) 

/STANDARD=(NOSYNTAX, NOSOURCE  FORM) 

/SHOWs(NOPREPROCESSOR , NOI NCLUDE , MAP , NOD  I CT lONARY , S I NGLE ) 

/WARN I NGS=( GENERAL , NODECLARAT IONS) 

/C0NTINUATI0NS=19  /CROSS  REFERENCE  /NOD  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /I4  /NOMACHINE  CODE  /OPTTmIZE 


265 


16-Jun-1988  11:06:33 
21-Oct-1987  10:59:39 


0001 

C 

0002 

C*********  SUBROUTINE  QRZ 

0003 

C 

0004 

SUBROUTINE  QRZ(  NO,  NM,  0,  R,  Z,  RUMRQ) 

0005 

0006 

C  REFERENCED  BT  OHIRSH  (TWICE) 

0007 

C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 

0008 

C  REVISED  15HAYa6 

0009 

0010 

PARAMETER  (  NQMX=14) 

0011 

0012 

COMMON/NU/  NMM1,  PI,  COSRUM(NOMX), 

SINRUM(NQMX) 

0013 

0014 

CRUM 

DIMENSION  a(NQMX,NH),  R(NCIHX,NH), 

RUHR(NOMX,NM), 

0015 

DIMENSION  Q(NQMX,NM),  R(NQMX,NM),  RUMRO(NOMX),  Z(NOHX,NH) 

0016 

0017 

DO  1=1, NQ 

0018 

CO  =COSRUM{I) 

0019 

SI  =SINRUM(I) 

0020 

DO  J=2,NMM1 

0021 

CRUM 

RUMR(I,J)=RUMR(I,1) 

0022 

CRUM 

Z(I,J)=Z(I,1)-Q(I,J)*StN(RUMR(I,J)) 

0023 

CRUM 

R(I,J)=R(I,1)'^0(I,J)*C0S(RUMR(I,J)) 

0024 

Z(I,J)=Z(I,1)  -  Q(I,J)*SI 

0025 

R(I,J)=R(I,1)  +  Q(I,J)*CO 

0026 

END  DO 

0027 

END  DO 

0028 

0029 

RETURN 

0030 

END 

PROGRAM 

SECTIONS 

ZCNQMX.MM) 


VAX  FORTRAN  V4.0-2  P 

OUAO : [CH I ANG . 3037 . SCM] SCMOTHER . FOR ; 22 


Name 

0  SCODE 

2  SLOCAL  . 

3  NU 

Total  Space  Allocated 


Bytes 

Attributes 

298 

PIC  CON  REL 

LCL 

SNR 

EXE 

RD 

NOWRT 

LONG 

188 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

120 

606 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

ENTRY  POINTS 

Address  Type  Name 


References 


0-00000000  QRZ 


4# 


VARIABLES 


Address 

Type 

Name 

Attributes 

References 

** 

R*4 

CO 

18= 

25 

2-00000000 

1*4 

I 

17= 

18 

** 

1*4 

J 

20= 

24(2) 

AP-Q00000083 

:*4 

NM 

4 

15(3) 

3-00000000 

1*4 

NMM1 

COMM 

12 

20 

AP-00000004a 

1*4 

NO 

4 

17 

3-00000004 

R*4 

PI 

COMM 

12 

•• 

R*4 

SI 

19= 

24 

19 

25(2) 


24(3) 


25(3; 


ARRAYS 


Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

3-00000008 

R*4 

COSRUM 

COMM 

56 

(14) 

12 

18 

AP-OOOOOOOca  R*4 

Q 

«* 

(14,  *) 

4 

15 

24 

AP-00000010a  R*4 

R 

(14,  *) 

4 

15 

25(2)= 

AP-00000018a 

R*4 

RUMRO 

56 

(14) 

4 

15 

3-00000040 

R*4 

SINRUM 

COMM 

56 

(14) 

12 

19 

AP-00000014a  R*4 


4  15 


PARAMETER  CONSTANTS 


••  (14,  *) 

-B-39- 


24(2)= 


r 

[  Type  Name  References 


1*4  NQMX 


TO#  12(2) 


15(4) 


-B-40- 


16-Jun-1988  11:06:33  VAX  FORTRAN  V4.0-2  P 

21-0ct-1987  10:59:39  DUAO: [CH1ANG.3037.SCM]SCMOTHER.FOR;22 

0001  C 

0002  C+++++++++++++  SUBROUTINE  SOLOUT  +♦♦♦♦♦♦♦++♦♦+♦+ 

0003  C 

0004  SUBROUTINE  SOLOUT (  I0SN3,  ITRB,  LG.  TODAY)  IN 

0005 

0006  C  REFERENCED  BY  MAIN(SCM);  REFERENCES  none 
0007  C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 
0008  C  REVISED  190CT87 
0009 

0010  CHARACTER  TaOAY*9 

0011 

0012  PARAMETER  (  NHMX^II,  NQMXs14) 

0013 

0014  COMMON  /DESIGN/BSBE.BE.RT.RPM.UT.EFFI.AVIL.VELR.HEADAD.FLOUC 

0015  +  .FLOWR, CONST, POW 

0016  COMMON  /GASCON/SHR,GASC,CP,POSABS,TOSABS 

0017  COHMON/MFLOU/  GS(NMMX),  G,  OMG, 

0018  *  CMCNQHX.NMMX),  CTHCNQMX.NHMX), 

0019  *  RCTH(NOMX,NMMX).  H(NQHX.NHMX),  ATNQMX.NHMX).  OEN(NQMX,NMHX>, 

0020  *  ENT(NQHX,NMMX),  OMF(NMMX),  BLO(NOMX.NMMX),  DHBLO( HOMX , NHMX ) , 

0021  *  DHRCTHCNQMX.NMMX),  OMCM(NQMX,NMMX),  UTH(NQMX,NHMX) 

0022  COMMON/HLIN/  NH,  RCNQMX.NMMX),  PHtR(NQMX,NHMX), 

0023  *  CURCNQMX.NMMX),  SM(NOMX,NNMX).  Z(NCIMX.NHMX) 

0024  COMMON/DLIN/  RUMROCNOMX),  NO.  QYNOMX.NMHX),  RUHR (NOMX, NHMX), 

0025  *  ZQH(NQMX),  ZOS<NaMX},  NQI,  NOB 

0026  COMMON  /STAN/STANP.STANT, STANDS 

0027  COMMON  /SCROLL/ALPSC.DHU.BS 

0028  COMMON/ROTO/  ZLE(2),  ZTE(2).  NB,  IPRF(NMKX).  THPCCNMMX), 

0029  *  AXIM(NMMX),  ZHAXI,  RUMAXI,  lAXI,  TTE 

0030  COMMON/XY/  RAS,  XM(NOMX,NMMX) 

0031  COMMON/LOAO/  PCON(NHMX),  IPCON(NMHX) 

0032  COHMON/NONAXI/  TNA<NOMX,NMMX),  UCTHO(NOMX,NHMX) 

0033  CCC  COMMON  /BFLOW/FQ1 , 102, INO,MIN,R8(51, 15),SMB(51, 15),XB(51 , 15) 

0034  CCC  ♦  ,8L08<51,15),DTH1R<51,15),PHIB(51,15),THEMB(51,15) 

0035  COMMON/IOS/  OMPCM,  DMPC,  DMPL,  EPSCM,  EPSC,  EPSL 

0036  COMMON/OS/  ITRL,  MXITC,  MXITG 

•  0037 

0038  DATA  PI /3. 141 59265359/ 

0039 

0040  OEGGRA  <180. /PI 

0041  WRITE(6,610}  HAX(ITRB.0)>1 

0042  610  F0RHAT('1'11X''M-»-v*  »IZ 

0043  +  '-TH  THROUGH  FLOW  SOLUTION  BY  USE  OF  THE  EXTENDED  NOVAK" S 

0044  +  'METHOD  ++♦♦♦') 

0045  WRITE(6,615)  EPSCM,  EPSG,  EPSL,  OMPCM,  DMPG,  DMPL,  MXITC,  MXITG, 

0046  +  ITRL 

0047  615  FORMAT<//20X' ITERATION  CONDITION:  EPSCM='F10.7/41X'EPSG  <'F10.7/ 

0048  +  41X'EPSL  ='F10.7/41X'OMPCM='F5.2/41X'OMPG  ='F5.2/41X’DMPL  =' 

0049  ♦  F5.2/20X' ITERATION  TIMES:  MXITC  =' I4/40X'MXITG  ='I4/41X 

0050  +  'ITRL  ='I4) 

0051 

0052  CCC  WRITE(6,670) 

0053  CCC  670  FOPMAT(/////11X 

0054  CCC  +  '♦♦♦+♦  DESIGN  CONDITIONS  AT  THE  WORKING  STATIONS  ++♦++'/// 

0055  CCC  ♦  IIX'J  RCTH'12X'H'10X'ENT'10X'BLO'10X'TNA'8X'WCTHD'/) 

0055  CCC  DO  1=1, NO 

0057  CCC  WRITE<6,671)  I 

0058  CCC  DO  J=1,NM 

0059  CCC  WRITE(6,672)  J,  RCTH(I,J),  H{I,J),  ENT(I.J),  BL0(I,J), 

0060  CCC  *  TNA(I,J),  WCTHD(I,J) 

0061  CCC  END  DO 

0062  CCC  END  DO 

0063 

0064  WRITE(6,611) 

0065  611  FORMAT(/////11X'++*+*  MERIDIONAL  STREAMLINE  OUTPUT  ♦♦♦+♦'/// 

0066  +  11X'J'8X'0'12X'Z'12X'R'10X'PHI'10X'CUR'12X'M'10X'DMF'/) 

0067  DO  10  1=1, NO 

0068  WRITE(6,671)  I 

0069  DO  10  J=1,NM 

0070  PHI  =PHIR(I,J)  *  DEGGRA 

0071  WRITE(6,672)  J,  0(1, J),  Z{I,J),  R(l,J),  PHI,  CUR(I,J), 

0072  +  SM(I,J),  OMF(J) 

0073  10  CONTINUE 

0074  WRITE(6,630)  RAS 

0075  630  F(»MAT(/////11X'+++++  FLOW  FIELD  OUTPUT  ♦♦♦++'T82.'(  RAS='E12.5' )' 

0076  +  ///IIX'J  CTH'11X'CR'11X'C2'11X'CM'12X'C'10X'ALP'10X'DEN'9X 

0077  +  'MACH'12X'X'/) 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


DO  20  I>1,NO 
WRITE{6,671)  I 
DO  20  Js1,NM 

CZ=01(  I ,  J  )*COS(PH  I «( I ,  J  )  ) 

CR=CM<I,J)*SIN(PH1R(I,J)) 

CTHAV=RCTH(I,J)/R(I,J) 

C=SQRT ( CM( 1 , J )»»2+CT  HAV»*2 ) 

ALP  =ATAM(  CTHAV/CM(I,J)  )  •  OEGGRA 

IF  (LG.E0.2)  THEN 
AO  =SaRTC(SHR-1.)*H(I,J)) 

A<1,J)  sAO 

•  *SQRT ( 1 . - ( SHR - 1 . )• ( CTH ( I . J )**2+CM( I , J )**2 )/ ( 2 . *A0**2 ) ) 

ELSE 

Ad.J)  =C*10. 

END  IF 

RHACH=C/A(I,J) 

URITE(6,672)  J,  CTHAV,  CR,  CZ,  CH<I,J),  C,  ALP,  OEN(I,J), 

+  RMACH,  XH(I,J) 

20  CONTINUE 


IF  (10SN3.GT.0)  THEN 
OPEH(  2,  FILE='0SH3ZI',  STATUS='NEW' ) 
URITE(2,640)  TXAY 


FORMAT <'  OUTPUT  FROM  SCM, 

FOR  INPUT  TO 

0SN3'T63,A9) 

WRITE{2,*) 

NOB, 

NM 

NOI1  sNQdl 

NO  IB  xNOdNOB 

URITE<2,*) 

{ 

RCTH(NOI1, 

J)/R(NOI1,J), 

J*1,NM) 

WRITE<2.*) 

< 

RCTH(NOI8, 

J)/R(NOtB.J>, 

Jsl.NM) 

URITE(2,*) 

( 

< 

Z(I,J), 

I*N0I1,N01B), 

J=1,NM) 

WRITE(2,») 

( 

( 

Rd.J), 

IsNOI1,NOIB), 

Js1,NM) 

WRITE{2,*) 

( 

( 

SMd.J), 

I>NOI1,NOIB), 

J«1,NM) 

WRITE(2,») 

( 

< 

CMd.J), 

IsNOI1,NOIB), 

J*1,NM) 

WfilTE<2,*) 

( 

( 

Qd,J), 

I:NOI1,NOIB), 

J=1,NM) 

URITE<2,*) 

( 

( 

BLOd,J), 

IsNOn.NOIB), 

J=1,NM) 

URITE{2,*) 

( 

( 

0EMd,J), 

IsNOM,NOIB), 

J=1,NM) 

CL0SE<2) 

END  IF 

URITE(6,650) 

650  F0RMAT(/////11X'+****  RELATIVE  FLOW  FIELD  OUTPUT  *****'/// 

*  11X'J'8X'M'11X'UM'10X,'UTH'10X'BET'12X'U'12X'U'/) 

DO  40  lal.NO 

WRITE{6,671)  I 
DO  40  J=1,NH 
UMsCM(I,J) 

U=OMG*R(I,J) 

AH=SH(I,J)-SM(N0I*1,J) 

TEH  =CTH{I,J)-U 

WTH(!,J)=TEM 

BET  =ATAN(  TEH/WM  )  *  DEGGRA 

U  =SORT(UH*WM*TEM*TEM) 

urite{6,672)  j,  ah,  wh,  wth(i,j),  bet,  W,  U 
40  CONTINUE 

URITE(6,660} 

660  F0RMAT(/////11X'+**++  DIMENSIONLESS  VALUE  ****'111 

*  IIX'J  0/QHAX'9X'C/UT'8X'CM/UT'7X'CTH/UT'9X'W/UT'7X 

*  'WTH/UT  RCTH/(RT*UT)'/) 

UT=OMG*RAS 

DO  50  I»1,MO 
WRITE(6,671)  I 
DO  50  JsT.NH 
D0=a{I,J)/0(I,NM) 

0CH=CM{I,J)/UT 

0CTH=RCTH{I,J)/R(I,J)/UT 

DC=SORT(OCM»*2"OCTH*»2) 

DWTH=WTH(I,J)/UT 
DU=SQRT ( DCM**2+OWT  H**2 ) 

DRCTH=RCTH(I,J)/(RAS*UT) 

URITE(6,672)  J,  DO,  DC,  OCM,  DCTH,  OW,  DWTH,  DRCTH 
50  CONTINUE 

671  FORMATCO  I  *'I3) 

672  FORMAT(I12,9{E13.5)) 

RETURN 

END 


OPEN2 


( 


PROGRAM  SECTIONS 


-B-42- 


Name 


Bytes  Attributes 


0  SCOOE 

2830 

1  SPOATA 

767 

2  SLOCAL 

92 

3  DESIGN 

52 

4  GASCON 

20 

5  MFLOU 

7488 

6  HLIN 

3084 

7  OLIN 

1412 

8  STAN 

12 

9  SCROLL 

12 

10  ROTO 

168 

11  XY 

620 

12  LOAD 

88 

13  NONAXI 

1232 

14  lOS 

24 

15  OS 

12 

Total  Space  Allocated 

17913 

PIC 

CON 

REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

G8L 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

ENTRY  POINTS 


Address  Type  Name 


References 


0-00000000  SOLOUT 


4# 


VARIABLES 

Address 

Type 

Name 

Attributes 

References 

*= 

R*4 

AO 

88= 

*• 

R*4 

ALP 

85= 

9-00000000 

R*4 

ALPSC 

COMM 

27 

*• 

R*4 

AM 

127= 

3-00000018 

R*4 

AVIL 

COMM 

14 

3-00000004 

R*4 

BE 

COMM 

14 

•• 

R*4 

BET 

130= 

9-00000008 

R*4 

BS 

COMM 

27 

3-00000000 

R*4 

BSBE 

COMM 

14 

** 

R*4 

C 

84= 

3-0000002C 

R*4 

CONST 

COMM 

14 

4-00000008 

R*4 

CP 

COMM 

16 

** 

R*4 

CR 

82= 

** 

R*4 

CTHAV 

83= 

** 

R*4 

CZ 

81  = 

** 

R*4 

DC 

145= 

** 

R*4 

DCM 

143= 

R*4 

DCTH 

144= 

** 

R*4 

DEGGRA 

40= 

9-00000004 

R*4 

DHU 

COMM 

27 

14-00000000 

R»4 

DMPCM 

COMM 

35 

14-00000004 

R*4 

DMPG 

COMM 

35 

14-00000008 

R*4 

DMPL 

COMM 

35 

•* 

R»4 

DO 

142= 

** 

R*4 

DRCTH 

148= 

** 

R*4 

DU 

147= 

** 

R»4 

DUTH 

146= 

3-00000014 

R«4 

EFFI 

COMM 

14 

14-OOOOOOOC 

R*4 

EPSCM 

COMM 

35 

14-00000010 

R»4 

EPSG 

COMM 

35 

14-00000014 

R*4 

EPSL 

• 

COMM 

35 

3-00000024 

R*4 

FLOUC 

COMM 

14 

3-00000028 

R*4 

FLOUR 

COMM 

14 

5-0000002C 

R*4 

G 

COMM 

17 

4-00000004 

R*4 

GASC 

COMM 

16 

3-00000020 

R»4 

HEAD AD 

COMM 

14 

2-00000004 

1*4 

I 

67= 

83(2) 

109(2)= 


89(2) 

96 

132 


132 


92 

95 

96 

96 

84 

96 

85 

96 

149 

145 

147 

149 

145 

149 

70 

45 

45 

45 

149 

149 

85 

130 

149 

147 

45 

45 

45 

149 

68 

70 

71(5) 

78= 

79 

81(2) 

84 

85 

88 

89(3) 

92 

95 

110(2)= 

111(2)= 

112(2)= 

113(2)= 

114(2)= 

115(2) 

-B-43- 


82(2) 

96(3) 

122= 


123 

125 

126 

127 

128 

129 

132 

139= 

140 

142(2) 

143 

144(2) 

146 

148 

10-OOOOOOAO 

1*4 

lAXI 

COMM 

28 

AP-00000004a 

1*4 

IDSN3 

4 

100 

AP-00000008S 

1*4 

ITRB 

4 

41 

15-00000000 

1*4 

ITRL 

COMM 

36 

45 

2-00000008 

1*4 

J 

69= 

70 

71(7) 

80= 

81(2) 

82(2) 

83(2) 

84 

85 

88 

89(3) 

92 

95 

96(4) 

107(3)= 

108(3) 

109(2)= 

110(2)= 

111(3)= 

112(2)= 

113(2)= 

114(2)= 

115(2)= 

124= 

125 

126 

127(2) 

128 

129 

132(2) 

141  = 

142 

143 

144(2) 

146 

148 

149 

Ap-oooooooca 

1*4 

LG 

4 

87 

15-00000004 

1*4 

HXITC 

COMM 

36 

45 

15-00000008 

1*4 

MXITO 

COMM 

36 

45 

10-00000010 

1*4 

NB 

COMM 

28 

6-00000000 

1*4 

NM 

COMM 

22 

69 

80 

104 

107 

108 

109 

no 

111 

112 

113 

114 

115 

124 

141 

142 

7-00000038 

1*4 

NO 

COMM 

24 

67 

78 

122 

139 

7-00000580 

1*4 

NOB 

COMM 

24 

104 

106 

7- 000005 7C 

1*4 

NO  I 

COMM 

24 

105 

106 

127 

** 

1*4 

Non 

105= 

107(2) 

109 

110 

111 

112 

113 

114 

115 

2-OOOOOOOC 

1*4 

NOIB 

106= 

108(2) 

109 

110 

111 

112 

113 

114 

115 

5-00000030 

R*4 

OMG 

COMM 

17 

126 

138 

4-OOOOOOOC 

R*4 

POSABS 

COMM 

16 

R*4 

PHI 

70= 

71 

2-00000000 

R*4 

PI 

380 

40 

3-00000030 

R*4 

POU 

COMM 

14 

11-00000000 

R*4 

RAS 

COMM 

30 

74 

138 

148 

** 

R*4 

RHACH 

95= 

96 

3-OOOOOOOC 

R*4 

RPM 

COMM 

14 

3-00000008 

R*4 

RT 

COMM 

14 

10-0000009C 

R*4 

RUMAXt 

COMM 

28 

• 

4-00000000 

R*4 

SHR 

COMM 

16 

88 

89 

8-00000008 

R*4 

STANCE 

COMM 

26 

8-00000000 

R*4 

STANP 

COMM 

26 

8-00000004 

R*4 

START 

COMM 

26 

4-00000010 

R*4 

TOSABS 

COMM 

16 

** 

R*4 

TEM 

128= 

129 

130 

131(2) 

AP-00000010a  CHAR 

TODAY 

4 

10 

102 

10-OOOOOOA4 

R*4 

TTE 

COMM 

28 

** 

R*4 

U 

126= 

128 

132 

3-00000010 

R*4 

UT 

COMM 

14 

138= 

143 

144 

146 

148 

3-0000001C 

R*4 

VELR 

COMM 

14 

R*4 

U 

131  = 

132 

** 

R*4 

UH 

125= 

130 

131(2) 

132 

10-00000098 

R*4 

ZHAXI 

COMM 

28 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Oitnensions 

References 

5-00000904 

R*4 

A 

COMM 

616 

(H, 

11) 

17 

89= 

92= 

95 

10-0000006C 

R*4 

AXIM 

COMM 

44 

(11) 

28 

5-00001138 

R*4 

BLO 

COMM 

616 

(1«. 

11) 

17 

114 

5-00000034 

R*4 

CM 

COMM 

616 

(H, 

11) 

17 

81 

82 

84 

85 

89 

96 

112 

125 

143 

5-0000029C 

R*4 

CTH 

COMM 

616 

(1*. 

11) 

17 

89 

128 

6-00000404 

R*4 

CUR 

COMM 

616 

(14', 

11) 

22  * 

71 

. 

5-OOOOOC3C 

R*4 

DEN 

COMM 

616 

<1<*. 

11) 

17 

96 

115 

5-000013A0 

R*4 

OMBLO 

COMM 

616 

(14, 

11) 

17 

5-00001870 

R*4 

OMCM 

COMM 

616 

(14, 

11) 

17 

5-0000110C 

R»4 

OMF 

COMM 

44 

(11) 

17 

71 

5-00001608 

R*4 

OMRCTH 

COMM 

616 

(14, 

11) 

17 

5-00000EA4 

R*4 

ENT 

COMM 

616 

(14, 

11) 

17 

5-00000000 

R*4 

GS 

COMM 

44 

(11) 

17 

5-0000076C 

R*4 

H 

COMM 

616 

(14, 

11) 

17 

88 

12-0000002C 

1*4 

IPCON 

COMM 

44 

(11) 

31 

-^44- 


10-00000014 

1*4 

IPRF 

COMM 

44 

(11) 

28 

12-00000000 

R*4 

PCON 

COMM 

44 

(11) 

31 

6-0000026C 

R*4 

PHIR 

COMM 

616 

<14. 

11) 

22 

70 

81 

82 

7-0000003C 

R*4 

Q 

COMM 

616 

(14. 

11) 

24 

71 

113 

142(2) 

6-00000004 

R*4 

R 

com 

616 

(14, 

11) 

22 

71 

83 

107 

110 

126 

144 

5-00000504 

R*4 

RCTH 

COMM 

616 

(14. 

11) 

17 

83 

107 

108 

148 

7-000002A4 

R*4 

RUHR 

COMM 

616 

(14. 

11) 

24 

7-00000000 

R*4 

RUMRQ 

COMM 

56 

(14) 

24 

6-0000073C 

R*4 

SM 

COMM 

616 

(14, 

11) 

22 

71 

111 

127(2) 

10-00000040 

R*4 

TMPC 

COMM 

44 

(11) 

28 

13-00000000 

R*4 

TNA 

COMM 

616 

(14. 

11) 

32 

13-00000268 

«*4 

WCTHD 

COMM 

616 

(14, 

11) 

32 

5 -00001 AOS 

R*4 

UTH 

COMM 

616 

(14, 

11) 

17 

129= 

132 

146 

11-00000004 

R*4 

XM 

COMM 

616 

(14, 

11) 

30 

96 

6-000009A4 

R*4 

Z 

COMM 

616 

(14, 

11) 

22 

71 

109 

10-00000000 

R»4 

ZLE 

COMM 

8 

(2) 

28 

7-0000050C 

R*4 

ZQH 

COMM 

56 

(14) 

24 

7-00000544 

R*4 

ZQS 

COMM 

56* 

(14) 

24 

10-00000008 

R*4 

ZTE 

com 

8 

(2) 

23 

PARAMETER  CONSTANTS 


Type  Name 


References 


1*4  •  NMMX 
1*4  NOHX 


12# 

12# 


17(14) 

17(1?) 


22(5) 

22(5) 


24(2) 

24(5) 


28(3) 

30 


30 

32(2) 


31(2) 


LABELS 

Address  Label 


References 


** 

10 

67 

69 

73# 

*• 

20 

78 

80 

98# 

** 

40 

122 

124 

133# 

** 

50 

139 

141 

150# 

1-00000007 

610' 

41 

42# 

1-00000109 

611' 

64 

65# 

1-00000061 

615' 

45 

47# 

1-00000160 

630' 

74 

75# 

1- 000001 E8 

640' 

102 

103# 

1-00000212 

650' 

119 

120# 

1-0000026E 

660' 

134 

135# 

1-000002E6 

671' 

68 

79 

123 

1-000002F4 

672' 

71 

96 

132 

152# 

153# 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

References 

FORSCLOSE 

116 

FORSOPEN 

101 

R*4 

MTHSATAN 

85 

130 

R*4 

MTHSCOS 

81 

R*4 

MTHSSIN 

82 

R*4 

MTHSSORT 

84 

88 

KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argiment,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 


108 

144 


32(2) 


25-May-1988  15:25:47  VAX  FORTRAN  V4.0-2 

6-Jun-1986  15:47:59  DUAO: CCHIANG.3037.SCM]SPLIN3.FOR;6 


P 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 


SUBROUTINE  SPLIN3(  N,  X,  Y,  NARG,  DOMAIN,  FUNC,  DERIV,  SUMS,  SEND, 

*  EPS) 

C  (3037-SPLIN3}  CUBIC  SPLINE  INTERPOLATION  (AND  INTEGRATION) 

C  V.3  -  INTEGRATION  TO  EVERY  PT. 

C  SEE  ALSO  V.1  •  BASIC  SPLINE  SUBROUTINE 
C  SEE  ALSO  V.2  -  INCLUDING  SINGLE  ARGUMENT  INTERPOLATION  & 

C  EXTRAPOLATION 

C  ADAPTED  FROM  (800S-SPLIN1 ),  19MAY86;  TOUCHED  06JUNS6 
C  REFERENCED  BY  NUFLOU 
C  REFERENCES  NTHSSORT 

C  INPUT  EPS,  DOMAIN(*),  N,  NARG.  SEND,  X(*),  AND  Y(*) 

C  OUTPUT  0ERIV(*).  FUNC(*),  AND  SUMS(*)... 

C  TO  BE  COMPILED  BY  VAX  FORTRAN  V4.0-2 

C  DERIV  OUTPUT  VECTOR  (SIZE  NARG)  CONTAINING  DERIVATIVE  VALUES  FOR 
C  DOMA)N(*) 

C  DOMAIN  INPUT  VECTOR  (SIZE  NARG,  IN  ASCENDING  ORDER)  CONTAINING  DOMAIN 
C  VALUES  FOR  WHICH  THE  DERIVATIVE  OR  FUCTIONAL  VALUE  IS  TO  BE 

C  COMPUTED 

C  EPS  ERROR  TOLERANCE  IN  ITERATIVE  SOL.  OF  SIMUL.  EOS. 

C  FUNC  OUTPUT  VECTOR  (SIZE  NARG)  CONTAINING  INTERPOLATED  FUNCTION 
C  VALUES  FOR  OaMA(N(*) 

C  N  «  OF  DATA  PTS. 

C  NARG  #  OF  ARGUMENTS  FOR  WHICH  FUNC(*)  S/OR  DERIV(*)  ARE  RED'D. ; 

C  POSITIVE  IF  THE  INTEGRAL  IS  NEEDED;  NEG.  IF  THE  INTEGRAL  IS  NOT 

C  NEEDED;  0  IF  ONLY  THE  INTEGRAL  IS  NEEDED  (NEITHER  FUNC  NOR  DERIV 

C  IS  NEEDED) 

C  NO  #  OF  Q- LINES  USED  IN  THE  SCM  METHOD 

C  OMEGA  RELAXATION  FACTOR  FOR  SUCCESSIVE  OVER-RELAXATION 

C  SEND  A  FACTOR  TO  BE  APPLIED  TO  S(2)  S  S(N-1)  TO  OBTAIN  S(1)  S  S(N), 

C  RESPECTIVELY,  S  BEING  CURVATURE;  NORMALLY  0,  .5,  OR  1 

C  SUMS  INTEGRALS 

C  X  VECTOR  (SIZE  N,  IN  ASCENDING  ORDER)  CONTAINING  DOMAIN  VALUES  OF 

C  THE  DATA  PTS. 

C  Y  VECTOR  (SIZE  N) -CONTAINING  RANGE  VALUES  OF  THE  DATA  PTS. 

PARAMETER  (  HXN«103) 

DIMENSION  DERIVd),  OOMAIN(I),  DX(MXN).  OYDX(MXN), 

*  FUNCd),  G(MXN),  S(MXN),  SUMS(I),  WORK(MXN),  X(N).  Y(N) 

DATA  MN I  TER/3/,  MX I TER/50/ 

IF  (N.GT.MXN  .OR.  N.LT.3)  THEN 
PRINT  *,  'N  EXCEEDED  DIM  or  <  3...',  N,  MXN 
STOP  'SPLIN3.1' 

END  IF 

OMEGA  *8.-4.*SORT(3.) 

NM1  sN-1 

DO  1x1, NM1 

DXd)  =X(I+1)-X(I) 

DYDXd)  =(  Y(I  +  1)-Y(1)  )/0X(I) 

END  DO 


DO  1x2, NMI 

DX2  *X(I+1)-X(I-1) 

WORK(I)  xOX(I-1)*.5/DX2 

0YDX2H  *(  0Y0X(I)-0Y0X(I-1)  )/OX2 

S(I)  xDYDX2H«0Y0X2H 

G(I)  xS(I)*OYDX2M 

END  DO 

Sd)  =S(2)*SENO 

S(N)  =S(N-1)*SENO 

ITER  =0 

30  ETA  =0. 

ITER  xITER+1 

DO  1x2, NMI 

TEM  =(  G(I)  -  WORX(I)»S(I-1)  ■  (  .5-WORX(I)  )*S(I+1) 

*  -  S(I)  )  *  OMEGA 

ETA  xAMAXK  ABS(TEM),  ETA) 

Sd)  xS(I)+TEM 

END  DO 


-B-46- 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 


IF  (IieR.LT.MNlTER)  GOTO  30 
IF  (ETA.GT.EPS)  THEN 
IF  (ITER.LT.MXITER>  GOTO  30 
00  I>1,N 

URITE(6.*)  I,  X(I),  Y(I),  Gd).  S(I),  WORK(l) 

END  DO 

PRINT  *,  'NOT  CONVERGED...  MXITER,  ETA.  EPS 
STOP  'SPLIH3.85' 

END  IF 

IF  (NARG.EO.O)  GOTO  210 

DO  I^I.NMI 

G(I)  =(  S(1+1)-S{I)  )/0X(I) 

END  DO 

C  100  CALC.  FUNCTION  VALUES  ANO  DERIVATIVES 
I  =2 

DO  J=1.ABS(NARG) 

DOM  =OOMAIN(J) 

IF  (  XCD.GT.OOM  .OR.  X(N).LT.OOM}  THEN 
PRINT  *.  ‘ARGUMENT  OUT  OF  RANGE...  J,  N.  DOM,  X(1),  X(N> 
STOP  'SPLIM3.115' 

END  I^ 

DO  WHILE  (  X(I).LT.OOM  ) 

I  =>I+1 

END  DO 
IM  =1-1 

H  =OOM-X(IM) 

T  =OOM-X(n 

HT  =H*T 

DSQS  =(  G(1M)*H'»S(IH)*S(IN)+S(I}  )/6. 

FUNC(J)  =OyOX(IM)*H  ♦  HT*OSOS  ♦  Y(IM) 

DERIV(J)=(H+T)*OSOS  ♦  GdM)*HT/6.  ♦  DYDX(IM) 

END  DO 

C  200  INTEGRATE  FROM  X<1)  TO  X(N) 

IF  (NARG.LT.O)  RETURN 
210  SUMS(I)  =0. 

00  J=I,NNI 

H  >0X(J) 

SUHS(J'i-1} 

♦  »<  (Y(J)+Y<J+1))».5  -  <  S{J)  ♦  S(J»1)  )*H*H/24.  )*H  ♦  SUMS(J) 
END  DO 

RETURN 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

1587 

PIC  CON  REl 

LCL 

SNR 

EXE 

RD 

NOURT 

LONG 

1  SPDATA 

97 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

2304 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated 

3988 

ENTRY  POINTS 


Address  Type  Name  References 

0-00000000  SPLIN3  1« 


VARIABLES 


Address  Type  Name  Attributes  References 

99  102  106 

111 
61 
63 
84 


R*4 

DOM 

78(2) 

R*4 

DSOS 

109= 

110 

R*4 

DX2 

59= 

60 

*• 

R*4 

DY0X2H 

61  = 

62(2) 

AP -000000289 

R*4 

EPS 

1 

79 

107 


R*4  ETA 


69= 


74(2)» 

-B-47- 


79 


84 


** 

R*4 

H 

106= 

108 

109 

110 

111 

118= 

119(3) 

** 

R»4 

NT 

108= 

110 

111 

** 

1*4 

I 

53= 

54(3) 

55(4) 

58= 

59(2) 

60(2) 

61(2) 

62 

63(2) 

71= 

72(6) 

75(2) 

81  = 

82(6) 

90= 

91(4) 

95= 

102 

103(2)= 

105 

107 

109 

1*4 

IM 

105= 

106 

109(3) 

110(2) 

111(2) 

** 

1*4 

ITER 

68= 

70(2)= 

78 

80 

** 

1*4 

J 

96= 

97 

99 

110 

111 

117= 

118 

119(6) 

2-0000080C 

1*4 

MNITER 

430 

78 

2-00000810 

1*4 

MXITER 

430 

80 

84 

AP- 000000043 

1*4 

N 

1 

99(2) 

40(2) 

45(2) 

46 

52 

66(2) 

81 

98 

AP-000000103 

1*4 

NARG 

1 

88 

96 

115 

2-00000814 

1*4 

NM1 

52= 

53 

58 

71 

90 

117 

** 

R*4 

OMEGA 

50= 

72 

AP-000000243 

R*4 

SEND 

1 

65 

66 

** 

R*4 

T 

107= 

108 

111 

** 

R*4 

TEM 

72= 

74 

75 

ARRAYS 


Address  Type  Name  Attributes  Bytes  Dimensions  References 


Ap- 000000 ica 

R*4 

DERIV 

4 

(1) 

1 

40 

111  = 

Ap-00000014a 

R*4 

DOMAIN 

4 

(1) 

1 

40 

97 

2-00000000 

R*4 

ox 

412 

(103) 

40 

54= 

55 

60 

91 

118 

2-0000019C 

R*4 

OYDX 

412 

(103) 

40 

55= 

61(2) 

110 

111 

AP- 0000001 8a 

R*4 

FUNC 

4 

(1) 

1 

40 

110= 

2-00000338 

R*4 

G 

412 

(103) 

40 

63= 

72 

82 

91  = 

109 

111 

2-00000404 

R*4 

S 

412 

(103) 

40 

62= 

63 

65(2)= 

66(2) 

72(3) 

75(2>= 

82 

91(2) 

109(3) 

• 

119(2) 

AP- 00000020a 

R*4 

SUMS 

4 

(1) 

1 

40 

116= 

119(2)= 

2-00000670 

R*4 

UORK 

412 

(103) 

40 

60= 

72(2) 

82 

AP- 00000008a 

R*4 

X 

•• 

(*) 

1 

40 

54(2) 

59(2) 

82 

98(2) 

99(2) 

102 

106 

107 

AP-oooooooca 

R*4 

Y 

•* 

(*) 

1 

119(2) 

40 

55(2) 

82 

110 

PARAMETER  CONSTANTS 
Type  Name 
1*4  MXH 


References 

38#  40(5)  45  46 


LABELS 

Address  Label 

0-00000230  30 
O-OOOOOSBO  210 


References 

69#  78  80 

88  116# 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Naaie  References 

R*4  MTHSSQRT  50 


KEY  TO  REFERENCE  FLAGS 

*  •  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 


16-Jun-1988  11:06:33  VAX  FORTRAN  V4.0-2 

21-Oct-1987  10:59:39  DUAO: CCHIANG. 3037. SCMJSCMOTHER. FOR 


0001 

C 

0002 

C*********  SUBROUTINE  SPLINE  ********* 

0003 

C 

0004 

SUBROUTINE  SPLINE<X,Y,N,L,Y1,Y2,UK,NU.ICON) 

0005 

0006 

C  FIND  Y2=dY/dX  by  CUBIC  SPLINE  METHOD 

0007 

C  INPUT 

N,  NU,  X(N),  Y(N);  OUTPUT  L(N).UK(NU),  Yl<N).  Y2(N} 

0008 

C  DEBUGGED  29JUN86  for  v.2.5 

0009 

0010 

REAL  X(N),Y(N),Y1(N).Y2(N),L(N),UK(NW) 

0011 

MF=H-2 

0012 

NA-NFt'(N-3) 

0013 

NB>NAf(N-2) 

0014 

NC=NB'»(N-3) 

0015 

IF(NU.GE.NC)  GO  TO  11 

0016 

ICO«*-1 

u017 

GOTO  9999 

0018 

11 

CONTINUE 

0019 

DO  10  1=1, N-1 

0020 

10 

L(I)=X(I*1)  X(I) 

0021 

DO  20  1=1, M-2 

0022 

11=1+1 

0023 

20 

W«I)»(Y(I1+1)-Y(I1))/L(I1)-(Y(I+1)-Y(I))/L(I> 

0024 

DO  30  1=1, N-4 

0025 

UK<NF+I)=L{I+1)/6. 

0026 

UK<NA+I+1)=(L<I+1)+L<I+2))/3. 

0027 

30 

UK(NB+I+1)=L(I+2)/6. 

0028 

WK<NF+M-3)«(L(N-2)**2-L(N-1)**2)/(6.*L(N-2)) 

0029 

WK(NA+1 )=(L( I )»*2+3*L< 1 )*L(2)+2»L{2)**2)/(6.*L(2)) 

0030 

UK(NA+N-2)=(L(N'1)«*2+3»L(N-1)*L<N-2)+2*L(M-2)»*2)/{6.' 

0031 

UIC(N8+1)=<L<2)**2-L(1)**2)/(6.*L(2)) 

0032 

NTR=N-2 

0033 

EPS=«K(NA+2)*1.E-5 

0034 

IF(NTR.LT.3.0R.EPS.LE.O.O)  go  to  999 

0035 

NN=NTR-1 

0036 

DO  1  1*1, MM 

0037 

IF(ABS(UK(NA+I)).LT.ABS(UK(NF+I)))  GO  TO  2 

0038 

IF(ABS(UK(NA+ry).LT.EPS)  GO  TO  888 

0039 

VK(M8+I )aM((NB+I )/WK(NA+I ) 

0040 

UK(I)=UK(I)/UK(NA+I) 

0041 

WIC(MA+I+1  )»WK<MA+I+1  )-WK(MF+I  )*Wt((M8+I ) 

0042 

WK(  1+1  )»UK(I+1  )-UK(MF+I  )*WK<  I ) 

0043 

UK(NF+I)=0.0 

0044 

GO  TO  1 

0045 

2 

IF<ABS(UK(NF+I)).LT.EPS)  GO  TO  888 

0046 

U=WK(MA+!+1 )/UK(MF+I ) 

0047 

WK{MA+I+1 )=UK(NB+I )-WK(NA+I )»U 

0048 

UK(NB+I)«U 

0049 

W=WIC(I+1)/UK(MF+I) 

0050 

WK{  1+1  )=«K<  I  )-WIC(NA+I  )»U 

0051 

WK(1}=W 

0052 

IF(I.GE.NTR-I)  GO  TO  1 

0053 

UK(MF+I )=UK(N8+I+1 )/U((MF+I ) 

0054 

UK(NB+I+1 )=-UK(NA+I }*UK(NF+I ) 

0055 

1 

CONTINUE 

0056 

IF(ABS(WK(NA+I)}.LT.EPS}  GO  TO  888 

0057 

UK(NTR)=UK(NTR)/UK(NA+NTR) 

0058 

UK(MTR- 1  )=UK{NTR- 1 )  -WK(MB+NTR- 1  )*UK(NTR) 

0059 

DO  3  1=2, NN 

0060 

II=MTR-I 

0061 

3 

WK(II)=M((in-WK{NB+II)*WK(Il+1)-WK(MF+II)*WI((II+2) 

0062 

GO  TO  5000 

0063 

888 

ICONS I 

0064 

GOTO  9999 

0065 

999 

ICON«30000 

0066 

GOTO  9999 

0067 

5000 

CONTINUE 

0068 

DO  40  1=2, N-1 

0069 

40 

Y2(n=WK{I-1) 

0070 

Y2{1)=(1.+L<1)/L{2))*Y2(2)-L<1)/L<2)*Y2(3) 

0071 

Y2(M>=(1.+L(M-1)/L(M-2))*Y2(M-1)-L<M-1)/LiN-2>*Y2(N-2) 

0072 

DO  50  1=1, M-1 

0073 

F1=(Y(I+1)-Y(I))/L(I) 

0074 

50 

Y1(I)=F1-(Y2(I  +  1)-Y2{I))*L(I)/6.-Y2(n*L(I)/2. 

0075 

F1=(Y(N)-Y(N-1))/L(N-1) 

0076 

Y1(M)=Y2{N)»L(N-1)/2.+F1-(Y2(N)-Y2(M-1))*L<N-1)/6. 

0077 

IC0N=0  -B-49- 

0078 

9999 

RETURN 

0079 


END 


PROGRAH  SECTIONS 


Name 

Bytes 

Attrilxjtes 

0  SCOOE 

24S9 

PIC  CON  REL 

LCL 

SHR 

EXE 

RO 

NOURT 

LONG 

2  SLOCAL 

284 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

2743 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000 

SPLINE 

4# 

VARIABLES 

Address  Type 

Name 

Attributes  References 

*« 

R*4 

EPS 

33= 

34 

38 

45 

56 

** 

R*4 

FI 

73= 

74 

75= 

76 

2-OOOOOOOC 

1*4 

I 

19= 

20(3) 

21  = 

22 

23(4) 

24= 

25(2) 

26(3) 

27(2) 

29 

36= 

37(2) 

38 

39(3) 

40(3) 

41(4) 

42(4) 

43 

45 

46(2) 

47(3) 

48 

49(2) 

50(3) 

51 

52 

53(3) 

54(3) 

56 

59= 

60 

63 

68= 

69(2) 

72= 

73(3) 

74(6) 

** 

t»4 

11 

22= 

23(3) 

AP- 000000243 

I  *4 

ICON 

4 

16= 

63= 

65= 

77= 

*• 

1*4 

II 

60= 

61(6) 

AP-0000000C3 

1*4 

N 

4 

10(5) 

11 

12 

13 

14 

19 

21 

24 

28(4) 

30(6) 

32 

68 

71(7) 

72 

75(3) 

76(6) 

2-00000004 

1*4 

NA 

12= 

13 

26 

29 

30 

33 

37 

38 

39 

40 

41(2) 

46 

47(2) 

50 

54 

56 

57 

2-00000008 

1*4 

NB 

13^ 

14 

27 

31 

39(2) 

41 

47 

48 

53 

54 

58 

61 

1*4 

NC 

14= 

15 

2-00000000 

1*4 

NF 

11  = 

12 

25 

28 

37 

41 

42 

43 

45 

46 

49 

53(2) 

54 

61 

2-00000018 

1*4 

NN 

35= 

36 

59 

2-00000014 

1*4 

NTR 

32= 

34 

35 

52 

57(3) 

58(4) 

60 

AP-00000020a 

1*4 

NW 

4 

10 

15 

** 

R*4 

W 

46= 

47 

48 

49= 

50 

51 

ARRAYS 

Address  Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

AP-00000010a  R*4 

L 

** 

(*) 

4 

10 

20= 

23(2) 

25 

26(2) 

27 

28(3) 

29(5) 

30(5) 

31(3) 

70(4) 

71(4) 

73 

74(2) 

75 

76(2) 

AP-0000001ca  R*4 

UK 

(*) 

4 

10 

23* 

25= 

26= 

27= 

28= 

29= 

30= 

31  = 

33 

37(2) 

38 

39(3)= 

40(3)= 

41(4)= 

42(4)= 

43* 

45 

46(2) 

47(3)= 

48= 

49(2) 

50(3 )» 

51= 

53(3)= 

54(3)= 

56 

57(3)= 

58(4)= 

61(6)= 

69 

AP- 00000004a  R*4 

X 

(*) 

4 

10 

20(2) 

AP-00000008a  R*4 

Y 

*« 

(*) 

4 

10 

23(4) 

73(2) 

75(2) 

AP- 000000 14a  R*4 

Y1 

•* 

(*) 

4 

10 

74= 

76= 

AP- 000000 18a  R*4 

Y2 

** 

(*) 

4 

10 

69= 

70(3)= 

71(3)= 

74(3) 

76(3) 

LABELS 
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Address  Label 


References 


000000676 

1 

36 

44 

0-00000540 

2 

37 

45« 

*« 

3 

59 

61« 

** 

10 

19 

20# 

O-OOOOOOBC 

11 

15 

18# 

•« 

20 

21 

23# 

** 

30 

24 

27# 

** 

40 

68 

69# 

** 

SO 

72 

74# 

0-0000098C 

888 

38 

45 

0-00000994 

999 

34 

65# 

** 

SOOO 

62 

67# 

0-0000099A 

9999 

17 

64 

B.2  PROGRAM  RIS 


•  • 
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27-May-1988  13:11:57  VAX  FORTRAN  V 
27-May-1988  13:11:53  DUAO:  [CHIANG.3037.MELLOR.RnRIS.FOR;2 

0001  PROGRAM  RIS 

0002 

0003  C  (3037-RIS)  Calc,  cascade  influence  functions  R  &  t  (Miller,  1959,  p.370) 

0004  C  &  store 

0005  C  Adapted  from  9845-3037-RI,  18NOV85...  copied  from  9845-3725-R&I2;. . 

0006  C  adapted  from  9845-3725-R&I .. .  coded  by  U.  Chiang,  06JUL83... 

0007  C  revised  27MAY88  for  format  of  file  1  Rl.DAT 

0008  C  Input  RISl.OAT,  output  RIS. DAT  S  RISO.DAT 
0009  C  References  no  subroutines 
0010  C  Fct.  of  XS>XMXC*CS>(x0-x)/s  t  AMOA^iLanbda 
0011  C  Using  symbols  AI  for  I  and  AMDA  for  Lambda 
0012 

0013  C  AI  I  function 

0014  C  All  I  function 

0015  C  AMOA  Lambda,  in  deg. 

0016  C  AMDAA  Starting  Lambda,  in  deg. 

0017  C  AMDAI  Increment  of  LanMa,  in  deg. 

0018  C  AMOAK  AMOA(IU) 

0019  C  AMOAZ  Ending  Lambda,  in  deg. 

0020  C  CO  cos( Lambda) 

0021  C  EPS  Converging  criterion 

0022  C  EQUAL  Equal  sign  - 

0023  C  K  A  duimy  counter 

0024  C  KA  Dummy  counter,  for  AMDA 

0025  C  KAMAX  Max.  allowable  KA 

0026  C  KA2  Final  KA 

0027  C  KX  Dummy  counter,  for  XS 

0028  C  KXMAX  Max.  allowable  KX 

0029  C  KXZ  Final  KX 

0030  C  LENGTH  #  of  characters  for  the  length  of  the  horizontal  lines  in  table 
0031  C  N  A  duniiy  variable,  1  to  NMAX 

0032  C  NMAX  Max.  #  of  terms  (either  pos.  or  neg.  side)  in  the  series 

0033  C  NMAXMX  Max.  N  used 

0034  C  Q  A  temporary  variable 

0035  C  Q1  A  temporary  variable 

0036  C  Q2  A  temporary  variable 

•  0037  C  03  A  temporary  variable 

0038  C  09  A  temporary  variable 

0039  C  R  R  function 

0040  C  RANOI  A  string  contains  R  &  I 

0041  C  RPI  1/(PI) 

0042  C  RR  R  function 

0043  C  SI  sin(Lambda) 

0044  C  UL  Underline  sign 

0045  C  XS  (x0-x)/s  =  {x0-x)/c  *  c/s 

0046  C  XSA  Starting  XS 

0047  C  XSI  Increment  of  XS 

0048  C  XSK  XS(KX) 

0049  C  XSZ  Ending  XS 

0050 

0051  C  0  •**  Dimensions  *•♦•*•****•*••*•**•• 

0052  CHARACTER* 1  EQUAL,  RAM0I*15,  T(X)AY*9,  UL,  VS*3 

0053 

0054  DIMENSION  AI(51,7),  AM0A(7),  R(51,7),  XS(51) 

0055 

0056  DATA  VS/M.O'/ 

0057 

0058  KAMAX  >7 

0059  KXMAX  ^51 

0060 

0061  C  10  ***  File  ***•******•••*••***• 

0062  OPEN  (  1,  FILE»='RI.0AT',  STATUS>'NEW' ) 

0063  OPEN  (  5,  FILE='RISI.DAT',  STATUS*'OLD' ) 

0064  OPEN  (  6,  FILE*'RISO.0AT',  STATUS='NeW' ) 

0065 

0066  C  50  *•*  Data  ******************** 

0067  C  60  ••*  Constant  *•***•*•*•**••• 

0068  DATA  EQUAL,  RANOI,  UL/  '=',  'R  I  ',  '  '/ 

0069  RPI  =1./3. 14159265359 

0070  C  70  **•  Input  *************** 

0071 

0072  ■  CALL  0ATE( TODAY) 

0073 

0074  READ  (5,*) 

0075  WRITE(6,75)  VS,  TODAY 

0076 

0077  75  FORMAT!'  (3037-RISO.DAT)  OUTPUT  FROM  RIS. FOR...  VERSION  ’A3, 
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+  T61,A9//) 

READ  (5,*)  AMOAA,  AHOAZ,  AHOAI,  XSA,  XSZ.  XSI 
URITE(6,*)  AMDAA,  AMOAZ,  AMDAI,  XSA.  XSZ,  XSI 
READ  (5,*)  NMAX,  EPS 
URITE(6,*}  NMAX,  EPS 
URITE(6,79)  EPS 

79  FORMAT(/'  CONVERGENCE  CRITERION  =MPE8.1////) 

C  80  Constant  •****••**•*•*•• 

KAZ  -(AM0AZ-AMDAA)/AM0AI+1 

m  »(XSZ-XSA)/XS1+1 

IF  (KAZ.GT.KAMAX  .OR.  KXZ . GT . KXMAX )  THEN 
TYPE  *,  'KAZ.GT.KAMAX  .OR.  KXZ. GT. KXMAX. .  KAZ,  KAMAX,  KXZ 
•  KXMAX 

STOP  'IRS. 104' 

END  IF 

IF  (KAZ.GT.8)  TYPE  *,  '  MAY  NEED  CHANGE  FORMAT  FOR  LISTING.. 
LENGTH  »5*15*KAZ 

DO  KA>1,KAZ 

AMOA(KA)  3(|CA-1}*AM0AI+AM0AA 
END  DO 

DO  KX=1,KXZ 

XS(KX)  *(KX-1)*XSI+XSA 

END  DO 

C  90  •••  Initial  *•*••*•*•***•** 

NMAXMX  =0 


***  Loop  thru  Lamtxia  •**•*****••••' 
DO  400  KA>1.KAZ 
AMDAK  xAM0A(KA} 

TYPE  *,  <*•***  LAMBDA  AMOAK 
IF  (  AMOAK. EO.O.  }  GOTO  3S0 
***  Loop  thru  XS  (LaaRxia  .NE.  0) 


*************** 


SI 

xSIN0(  AMOAK  ) 

CO 

=COSO(  AMDAK  } 

DO 

300  KXxI.kXZ 

XSK 

xXS(KX) 

IF  (AMOAK. EQ. 90.  .AND.  XSK.GE.1.)  THEN 

DO 

KxKX.KXZ 

»'(K,KA)  =0. 

R(K,KA)  x-9.999 

ENO  DO 

GOTO  400 

ENO 

IF 

All 

*0. 

RR 

*0. 

Suamation  over  -N  to  N  except  0 

DO 

200  N«1,  NMAX 

01 

=XSK-SI*M 

02 

=XSK^SI*M 

0 

=CO*CO*N*N 

03 

=1/(01*01+0) 

0 

*1/<02*02*0) 

09 

xC0*N*(03-0) 

0 

=01*03*02*0 

IF  (  ABS(0}.LT.EPS  .AND.  ABS(09>.I 

All 

=AII+09 

RR 

=RR+0 

TYPE  ’ 

*,  'N  exceeded...',  NMAX,  AMOAK,  XSK 

STOP 

'RIS.202' 

AKKX 

,KA)  x(AII+0)*RPI 

R(KX,KA)  x(RR'»09)*RPI 

TYPE  *,  XSK,  R(KX.KA),  AI(KX,KA) 

NMAXMX  xMAX(NMAXMX,N> 

GOTO  400 

***  Loop  thru  XS  (for  Lambda  =  0)  •••••*•••• 

DO  390  KXxl.KXZ 

Sumwtion  over  -N  to  N  except  0 
RR  >0. 

XSK  xXS(KX) 

DO  370  N=1,  NMAX 

0  x(XSK+XSK)  /  (XSK*XSK+N*N) 

IF  (  ABS(Q).LT.EPS  )  GOTO  380 
RRxRR+0 

TYPE  *,  '  N  exceeded...',  NMAX,  0,  XSK 
STOP  'RI.372' 

AKKX.KA)  xQ. 

R(KX,KA)  *(RR+<J9)*RPI  -B-64- 

TYPE  *,  XSK,  R(KX,KA) 


0158  390  NMAXMXs»MX(NHAXMX,N) 

0159  400  CONTINUE 

0160 

0161  C  500  **•  List  data  •***♦•****•***•**•*« 

0162  WRITE(6,5520)  (  EQUAL,  K=1, LENGTH) 

0163  U«iITE(6,530)  (  AMDA(KA},  KA>1,KAZ) 

0164  530  FORHAT(/'  Lai»bda'F10.0,7F15.0) 

0165  URITE(6,S520>  (  UL,  K^l, LENGTH) 

0166  UNITE(6,540)  (  HANOI,  KAs1,KAZ) 

0167  540  FO«MAT(/'  X/S  '9A15) 

0168  URITE(6,5520)  (  UL,  Ksl, LENGTH) 

0169  URITE(6,*) 

0170  00  rx»i,Kxz 

0171  URITE(6,55S0)  XS(KX),  (  R(KX,KA).  AI(KX,KA),  KA>1,KAZ) 

0172  IF  (  H00(KX,5).EQ.1  )  THEN 

0173  WRITE(6,*) 

0174  ENO  IF 

0175  ENO  00 

0176  W«ITEC6,5520)  (  eaUAL,  lf=1, LENGTH) 

0177  URITE(6,5003) 

0178  WRITE(6,*)  'MaxinMB  number  of  positive  or  negative  terms  used  =', 

0179  1  NMAXMX 

0180 

0181  C  600  Store  data  ******************** 

0182  WRITEfI,*)  '{3037-RI.DAT)  GENERATED  FRON  RIS.FOR  FOR  MELLOR.FOR' 

0183  URITEd,*)  EPS,  AMOAA,  AMOAZ,  AMOAI,  XSA,  XSZ,  XSI 

0184  URITEd,*)  {  (  R(KX,KA),  XA=1,XAZ),  XX=1,XXZ), 

0185  *  <  (  AI(XX,KA),  XA=1,XA2),  KX=1,KX2),  999 

0186 

0187  C  900  ***•*•****••***•**** 

0188  STOP 

0189 

0190  5003  FORMAT(///) 

0191  5008  FORMAT<A20) 

0192  5520  FORHATdH  125A1) 

0193  5550  FORMAT<F6.2,8(F8.3,F7.3)) 

0194  ENO 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  scnE 

2325 

PIC  CON  REL 

LCL 

SHR 

EXE 

RO 

NOURT 

LONG 

1  SPOATA 

428 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

3496 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

PO 

URT 

LONG 

Total  Space  Allocated 

6249 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  RIS  1« 

VARIABLES 


Address  Type  Name  Attributes  References 


** 

R*4 

All 

122= 

134(2)= 

138 

2-OOOOOC30 

R*4 

AMOAA 

79- 

80 

86 

96 

183 

2-OOOOOC38 

R*4 

AMOAI 

79= 

80 

86 

96 

183 

2-00000C70 

R*4 

AMOAK 

107= 

108 

109 

111 

112 

115 

136 

2-OOOOOC34 

R*4 

AMOAZ 

79= 

80 

86 

183 

2-00000C78 

R*4 

CO 

112= 

128(2) 

131 

2-00000C4C 

R*4 

EPS 

81  = 

82 

83 

133(2) 

151 

183 

2-00000C10 

CHAR 

EQUAL 

52 

680 

162 

176 

** 

1*4 

K 

116= 

117 

118 

162= 

165= 

168= 

176= 

2-00000C5C 

1*4 

KA 

95= 

96(2) 

106= 

107 

117 

118 

138 

139 

140(2) 

155 

156 

157 

163(2)= 

166= 

171(3)= 

184(4) 

** 

1*4 

KAMAX 

58- 

88 

89 

2-00000C50 

1*4 

KAZ 

86- 

88 

89 

93 

94 

95 

106 

163 

166 

171 

184(2) 

*• 

1*4 

KX 

98* 

99(2) 

113= 

114 

116 

138 

139 

140(2) 
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145= 

148 

184(4)= 

** 

1*4 

KXNAX 

59= 

88 

2-OOOOOC54 

1*4 

KXZ 

87= 

88 

184(2) 

2-OOOOOCS8 

1*4 

LENGTH 

94= 

162 

** 

1*4 

N 

125= 

126 

158 

2-OOOOOC48 

1*4 

NMAX 

81= 

82 

2-00000C68 

1*4 

NMAXHX 

103= 

141(2)= 

** 

R*4 

0 

128= 

129 

150* 

151 

** 

R*4 

01 

126= 

129(2) 

*• 

R*4 

02 

127= 

130(2) 

** 

R*4 

03 

129= 

131 

2-OOOOOC8C 

R*4 

09 

131= 

133 

2-OOOOOC11 

CHAR 

RAND  I 

52 

680 

R*4 

RPI 

69= 

138 

** 

R*4 

RR 

123= 

135(2)= 

2-00000C74 

R*4 

SI 

111* 

126 

2 -00000020 

CHAR 

TODAY 

52 

72A 

2-00000C29 

CHAR 

UL 

52 

680 

2-OOOOOC2A 

CHAR 

VS 

52 

560 

2-OOOOOC3C 

R*4 

XSA 

79= 

80 

2-00000C44 

R*4 

XSI 

79= 

80 

2-OOOOOC80 

R*4 

XSK 

114* 

115 

153 

157 

2-00000C40 

R*4 

XSZ 

79= 

80 

155 

156 

157 

170= 

171(3) 

172 

89 

89 

98 

113 

116 

145 

170 

165 

168 

176 

127 

128(2) 

131 

141 

149= 

150(2) 

125 

136 

149 

153 

158(2)= 

178 

130(2)= 

152 

131 

132(2)= 

133 

135 

138 

132 

132 

132 

134 

139 

156 

166 

139 

156 

139 

147= 

152(2)= 

156 

127 

75 

165 

168 

75 

87 

99 

183 

87 

99 

183 

126 

127 

136 

140 

148= 

150(4) 

87 

183 

ARRAYS 


Address 

Type 

Name 

Attributes 

Bytes 

Oiinensions 

References 

2-00000000 

R*4 

AI 

1428 

(51.  7) 

54 

117= 

II 

CO 

140 

155= 

171 

184 

2-00000594 

R*4 

AM>A 

28 

(7) 

54 

96= 

107 

163 

2-OOOOOSBO 

R*4 

R 

1428 

(51,  7) 

54 

118= 

139= 

140 

156= 

157 

171 

184 

2-00000B44 

R*4 

XS 

204 

(51) 

54 

99* 

114 

148 

171 

LABELS 

Address 


Label 


FORSOATE  T  OS 

forsopem"  ~ 

R^4  MTHSCOSO 
R*4  HTHtStNO 


References 


1-000001 OB 

75' 

75 

77# 

1-00000146 

79' 

83 

84# 

•• 

200 

125 

135# 

0-00000300 

210 

133 

138# 

•* 

300 

113 

141# 

0-000004BC 

350 

109 

145# 

•* 

370 

149 

152# 

0-000005 1C 

380 

151 

155# 

390 

145 

158# 

0-000005EO 

400 

106 

120 

1-0000016B 

530' 

163 

164# 

1-0000017E 

540' 

166 

167# 

1-00000191 

5003' 

177 

190# 

** 

5008' 

191# 

1-00000195 

5520' 

162 

165 

1-00000190 

5550' 

171 

193# 

JNCTIONS  AND 

SUBROUTINES  REFERENCED 

Type  Name 

References 

72 

62 

112 

111 


142 


168 


63 
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64 


159# 


176 


1,2# 


B.3  PROGRAM  MELLOR 


Provided  in  this  section  is  a  listing  of  the  computer  program 
MELLOR  and  some  of  its  subroutines  which  include 

DGNK 

FFCP 

GNK 

INPUT 

LOOP 

and  RESULT. 

The  subroutines  FILONC,  SIMULl,  and  SPLINl  are  sharable  by  programs 
Mellor  and  DSN3  and  are  listed  together  with  program  DSN3  in 
Section  B.4. 
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B.3  PROGRAM  MELLOR 


Provided  in  this  section  is  a  listing  of  the  computer  program 
MELLOR  and  some  of  its  subroutines  which  include 

DGNK 

FFCP 

GNK 

INPUT 

LOOP 

and  RESULT . 

The  subroutines  FILONC,  SIMULl,  and  SPLINl  are  sharable  by  programs 
Mel  lor  and  DSN3  and  are  listed  together  with  program  DSN3  in 
Section  B.4. 
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15-Jun-1988  16:31:16  VAX  FORTRAN  V4.0-2  P 

15-Jun-1988  16:31:10  DUAO: CCHIANG. 3037. MELLOR3MELLORM. FOR; 

0001  PROGRAM  MELLOR 

0002  C  (3037-MELLOR)  CALC.  LIFT  COEF.  ETC.  USING  CASCADE  THEORY  (MILLOR,  1959) 

0003  C  REQ.  SUBS  (D)  DGNK,  (.)  FFCP,  (.)  FILONC,  (G)  GNK.  (1)  INPUT,  (L)  LOOP, 

0004  C  (R)  RESULT,  (.)  SIHULI,  &  (.)  SPLIN1 

0005  C  REQ.  INPUT  DATA  FILES  (5)  MELl,  (7)  ICL  (IF  MH=2),  (9)  RI  (GENERATED 

0006  C  FROM  (3725(9845] 'R&l)),  &  (11)  BLADE 

0007  C  REFERENCES  DGNK,  INPUT,  LOOP,  REAORI,  &  SRI,  i  FWSOATE  T  OS  &  FORSOPEN 

0008  C  ADAPTED  FROM  (3037-CASCAD CHP9845] ) 

0009  C  COOED  BY  W.  CHIANO,  14JULr83...  REVISED  11NOV85 
0010  C  TRANSFERED  TO  VAX  BY  S.  HSU.  10CICT86 
0011  C  TO  BE  COMPILED  BY  VAX-11  FORTRAN,  V.4.0 

0012  C  REVISED  240CT86.  CHIANG;  TOUCHED  16JUN88 

0013 

0014  COMC  (3037-MELLOR-MELCOM)  01APR87 


0015 

COM 

0016 

COM 

PARAMETER 

(  KAMX=a,  KXMX=76,  NALMXa13,  NAMX=19, 

N6MX34,  NCMX' 

0017 

COM 

* 

NFRMX=15,  NSMX=S,  NSECMX=500,  NYMAX=100,  VS='1.0') 

0018 

COM 

PARAMETER 

(  NYSMX=MAX(  NSECMX*2,  MAX(  NYMAX,  NSECMX'^U2) ) , 

0019 

COM 

♦ 

NYSMX2=MAX(  MYMAX+1,  NSECMX*2)  +  2) 

0020 

COM 

0021 

COM 

COMMON/M  IL  / 

TDATE 

0022 

COM 

COMMON/  DG  /  OG(NFRMX,NFRMX.NSECMX), 

0023 

COM 

* 

OH(NFRMX,NFRHX,NSECNX), 

0024 

COM 

DB(NFRMX,NSECMX).  DT(NFRNX,NSECMX) 

0025 

COM 

COMMON/  DGI  / 

DX,  NSEC 

0026 

COM 

COMMON/ 

OGILR/ 

LISTO,  NFR 

0027 

COM 

COMMON/ 

DG  L  / 

C(NFBMX) 

0028 

COM 

COMMON/  D  I  / 

FCP(NYSMX2),  FTP(MYSMX), 

NSEC2 

0029 

COM 

COMMON/ 

0  IL  / 

PI 

0030 

COM 

COMMON/ 

GI  / 

A((KXMX,KAMX),  R(KXHX,KAMX), 

XSA,  XSI 

0031 

COM 

COMMON/ 

GILR/ 

CSA 

0032 

COM 

COMMON/ 

G  LR/ 

6(NFRMX,NFRMX),  H(NFRMX,NFRMX), 

0033 

COM 

♦ 

B(NFRMX),  T(MFRMX), 

AMDAD,  CS 

0034 

COM 

COMMON/ 

IL  / 

I  CL ( NAMX , NCMX , NSMX . NBMX) , 

0035 

COM 

♦ 

BETAKNBMX),  CBI(NSMX),  V(NFRMX), 

0036 

COM 

♦ 

AMDA,  AMDZ,  AMOI,  CA,  CC.  CSI 

,  CSZ,  SALPHA 

0037 

COM 

♦ 

SENDS,  TOC,  ISCL, 

MN,  NA,  NB.  1 

0038 

COM 

COMMON/ 

ILR/  ALPHAM,  CALPHA,  CB.  P12 

0039 

COM 

COMMON/ 

I  R/ 

IRES,  SA2PI,  T0C2PI 

0040 

COM 

COMMON/ 

LR/  A(NFRMX),  CBO 

0041 

0042  CHARACTER  T0ATE*9,  VS*3 

0043 

0044  PARAMETER  (  VS='1.0') 

0045 

0046  COMMON/ML/  TDATE 

0047 


0048 

OPEN( 

5,  FILE='MELI', 

STATUS* 'OLD', 

READONLY) 

0049 

OPEN( 

6,  FlLE='MELO', 

STATUS* 'NEW') 

0050 

C 

OPEN( 

7,  FILE*' ICL', 

STATUS* 'OLD', 

READONLY)  ...  IN  INPUT 

0051 

C 

OPEN( 

8,  FILE«'MEL08', 

STATUS* 'NEW') 

...  IN  LOOP 

0052 

OPEN( 

9,  FILE='RI', 

STATUS* 'OLD', 

READONLY) 

0053 

C 

OPEN( 

10,  FILE='MEL010', 

STATUS*'NEW') 

...IN  INPUT 

0054 

OPEN( 

11,  FILE*'BLA0E', 

STATUS* 'OLD', 

READONLY) 

0055 

0056 

CALL 

OATE(TOATE) 

0057 

0058 

WRITE(6,110)  VS,  TDATE 

0059 

110  FORMATC  LIFT  COEFFICIENT 

CALCULATION  USING  MELLOR"S  ALGORITHM'/ 

0060 

+  '  VERSION  'A3,T51,A9//) 

0061 

0062 

CALL 

INPUT 

0063 

0064 

CALL 

DGNK 

0065 

0066 

CALL 

LOOP 

0067 

0068 

WRITE(6,900) 

0069 

900  FORMAT!///'  END  OF  OUTPUT 

"3037-MELLOR- 

■MELO"') 

0070 

STOP  ' 

'Done. . . ' 

0071 

END 

PROGRAM  SECTIONS 


-B-69- 


I 


Name 

Bytes 

Attributes 

0 

SCOOE 

146 

PIC  CON  REL 

LCL 

SHR 

EXE 

RO 

NOWRT 

LONG 

1 

SPOATA 

145 

PIC  OIN  REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

2 

SLOCAL 

172 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RO 

WRT 

LONG 

3 

ML 

9 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated  A72 


ENTRY  POINTS 

Address  Type  Name 
0-00000000  MELLOR 


References 

1« 


VARIABLES 

Address  Type  Name 
3-00000000  CHAR  TOATE 

PARAMETER  CONSTANTS 
Type  Name 
CHAR  VS 
LABELS 

Address  Label 

1-0000001D  110' 

1-0000006A  900' 


Attributes  References 

COMM  42  46  S6A 


References 

42  44«  58 


References 

58  59# 

68  69# 


•  • 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name 


References 


DGNK 

FOR$OATE_T  OS 

FORBOPEN 

INPUT 

LOOP 


64 

56 

48  49  52 

62 
66 


58 


54 


♦- . - . . + 

KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  ■  Defining  Reference 

A  -  Actual  Arguaent,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Nunber  of  occurrences  on  line 


i 


COMMAND  QUALIFIERS 

F/LIS/CHE/CRO  MELLORM  | 

/CHECK>(BOUNOS, OVERFLOW, UNDERFLOW) 

/OEBUG>(NOSYMBOLS , TRACEBACK) 

/STANDARO>(NOSYNT AX. NOSOURCE  FORM) 

/SHOWx(NOPREPROCESSOR , NOI NCLUDE , MAP , NOO I CT I ONAR Y , SINGLE) 

/WARNI NGS«(GENERAL , NOOECLARAT IONS ) 

/C0NTINUATI0MS=19  /CROSS  REFERENCE  /NOD  LINES  /NOEXTENO  SOURCE  /F77  ■ 

/NOG  FLOATING  /I4  /NOMACHINE  CODE  /OPTTmIZE  I 


-B-60- 


24- MBy-1988  09:57:17  VAX  FORTRAN  V4.0-2 

25- Mar-1987  16:39:18  OUAO: CCHIANG.3037.DSN1DGNK.FOR;27 


SUBROUTINE  DGNK 

C  (3037-MELL0R-DGNK)  CD)  CALC.  DELTA  G(N,K)<THETA)>G(N.K)(PI-THETA) 

C  (&  OTHERS),  CF.  NILLOR  (1959) 

C  REFERENCED  BY  MAIN  (MELLOR);  REFERENCES  MTHSSORT  ITWICE) 

C  INPUT  OK,  FCP,  FTP,  LISTO,  NFR,  NSEC,  NSEC2,  8  PI 
C  INOECES  N  8  K,  STARTING  0,  ARE  REPLACED  BY  N  8  K  STARTING  1 
C  COOED  BY  W.  CHIANG,  1983 

C  100CT86,  S.  HSU  TRANSLATED  FROM  (3037-CASCA0 [9845] -DGNK)  WHICH  WAS 
C  ADAPTED  FROM  (372S-CASCA0CHP98451-DGNK2) 

C  REVISED  12JAN87,  CHIANG;  TOUCHED  25MAR87 

PARAMETER  (  NFRMX-15,  NSECMX>500,  NYMAX^IOQ) 

PARAMETER  <  HYSMX=MAX(  MSECMX*2,  MAX<  NYMAX,  MSECMX*1*2)), 

+  HYSMX2=MAX(  NYMAX+1,  NSECMX*2)  ♦  2) 


COMMON/DG 


COMMON/OGI  / 
COMMON/OGIL  R/ 
COMMON/DG  L  / 
COMMON/D  I  / 
COMMON/O  IL  / 


DG(NFRHX,NFRMX,NSECHX), 

DH(NFRMX,NFRMX,NSECMX), 

OB(NFRHX,NSECHX),  OT(NFRNX,NSECMX) 

OX,  NSEC 

LISTO,  NFR 

C(NFRMX) 

FCP(NYSMX2),  FTP(NYSMX), 

PI 


DIMENSION  COA(NFRMX),  SIB(NFRMX) 


C  100  CONSTANT  *•*•*•***• 


0029 

C0N*0X*0X*2./PI 

0030 

CON4xCON*.25 

0031 

NSEC2PXNSEC2+1 

0032 

OTxOX/3. 

0033 

0034 

C  200  INITIALIZATION  **’ 

0035 

DO  1x1, NFR 

0036 

DO  Jx1,NFR 

0037 

DB(1,J) 

*0. 

0038 

0T<I,J) 

*0. 

0039 

DO  K>1,NSEC 

0040 

0G(I,J,K) 

■0. 

0041 

0H(I,J,K) 

xO. 

0042 

END  DO 

0043 

END  DO 

0044 

END  DO 

0045 

0046 

IF  (LISTO. E0.1) 

URITE(6,210) 

0047 

210  FORMAT(//'  c/S 

dGOO  dG02  dGII 

0048 

+  'dHOI 

dHIO  dBO  dB1 

dG22  dHOO 
dTV/) 


C  300  LOOP  THRU  SECTIONS  *** 
00750  I  SEC-1,  NSEC 
Y  — OT 

X  »0X*ISEC-0T 


LOOP  THRU  SEGMENTS  ***** 

IX  -ISEC*ISEC 

lY  =1 

DO  650  ISEG»1,(MSEC-ISEC)*2*1 
DXX  <(  M00(ISEG,2)*1  )*0T 
Y  xY+OXX 

YM  xl.-Y 

XM  *1.-X 


DEFINE  COS  8  SIN  FOR  BOTH  ANGLES  OF  K*THETA  8  K*THETAO 
COSB  =YM-Y 
C0SB2  =COSB*COSB 
SIB(1)«0. 

SINB  xSQRT(YM*Y)*2. 

SIB(2)xSINB 

C0A(1)x1. 

C0A(2)-XM-X 
C0SA2  xCOA(2)+COA(2) 

SINA  xS0RT(XM*X)*2. 

DO  Nx3,NFR 

COA{N)  »C0A(N-1)*C0SA2  -  C0A(H-2) 

SIB(M)  -SIB(N-1>*C0SB2  -  SIB(N-2} 

end  do  _B-61- 


FCPX  «FCP(IX) 

T8  »(1+C0SB)*FCPX 
T5  »fTP(IY)/SIMA 
T3  »FCPX*T5 
FCPXC  ■FCP(NS£C2P-IX) 

T9  =(1-C0SB)*FCPXC 
T6  »FTP(NS£C2P-iy)/SINA 
T4  =FCPXC*T6 
RSIA2  s2./StNA 
RSS  <1./(  SINA*SINB  } 

RSSH  «RSS*.5 
COBRSS«COSB*RSS 
FCCO  »(T8-T9)*RSSH 
Fees  »(T8*T9)*RSSH 
Fco  >(Fepx-Fepxe)/siNA 
Fes  «(Fepx«FCPxe)/siNA 
03  »T3*T4 

04  XT3-T4 
05  XT5+T6 
06  =T5-T6 

T2  xC0SB-C0A(2} 
n  =03/T2 
T2  X04/T2 

LOOP  THRU  K  t  M  *** 

00520IC>1,NFR,2 

COAK>eOA(K) 

e(X)»T2*eoAx+e(K) 

DB(K.lSEe)  «04*eOAK+OB(K,lS£C) 

DT(K,lSEe)  ■06*e0AK'K)T(K,IS£e) 

0G(  1 ,  K ,  I  SEC  )  xCOAK'COeRSS-KjGC  1 .  K .  I  SEC  ) 
DH(1,K,1SEC)>C0AK*FCC0  'OHd  ,K.  tSEC) 

T9  >C0AX*RSIA2 
T7  xCOAK'FCO 
T8  ■COAX*FCS 
OO  N>2,NFR,2 

OH(M,X, ISEC)  *SIB<N)»T7*0H(H,K, ISEC) 

END  DO 

DO  N«3,NFR,2 

DGCM.X,  tSEC)  »SIB<M)*T9*0G<»f,r,  ISEC) 

0H<N,K,1SEC)  «SIB<N)*T8«0H(N,K,1SEC) 

END  00 
CONTINUE 
D0540K«2,NFR,2 
COAK>COA(K} 

C<K)»T1*C0AK+C{K) 

OB(K, ISEC)-03*C0AK«0B(K. ISEC) 

OT(K, ISEC)*05*COAK+OT{K, ISEC) 

0G(1,K,ISEC)xC0AX*RSS  ♦0G<1,K, ISEC) 

OH ( 1 . K , I SEC ) xCOAK*  FCCS+OH  < 1 , K , I SEC ) 

T9  »C0AK»RSIA2 
T7  xC0AK*FC0 
T8  *C0AK*FCS 
00  Nx2,NFR,2 

OG(N,K,ISEC)  xSIB(N)*T9^C(N,K,ISEC) 

DH(N,K,ISEC)  <SIB(N)*T8'H)H(N,K.ISEC) 

END  00 
DO  Nx3,NFR,2 

0H(N,K,  ISEC)  =SIB(N)*T7-K)H(N,K,  ISEC) 

ENO  00 
CONTINUE 

IX  »IX*1 
lY  *IY*1 

X  xX+OXX 
CONTINUE 

IF  (LIST0.E0.1) 

URITE(6,5660)  { ISEC- .5)*0X,  0G(1,1,ISEC), 

DG(1,3,ISEC),  0G(2,2,ISEC),  0G<3, 1, ISEC),  0G(3,3,ISEC) 
0H(1,1,ISEC),  0H{1,2,ISEC),  0H(2.1,ISEC), 
0Bn,ISEC)*.25  ,  08(2, ISEC)*. 25. 

0T(1,ISEC)*.25,  DT{2,ISEC)*.25 


»SIB<H)*T9*0G(N,r, ISEC) 
«SIB<N)*T8*0H(N,IC,1SEC) 


«SIB<N)*T9^C<N,X,ISEC) 

«SIB{N)*T8*0H(N,X,ISEC) 


=SIB(N)*T7-K)H(N,K,  ISEC) 


750  CONTINUE 
DO 

DO 

DO 


I>1,NFR 
DO  Jxl.NFR 
DO  Kxl.NSEC 
DGd.J.K) 
0H(I,J,K) 
ENO  DO 
ENO  DO 
END  DO 


x0G(I,J,K)*C0N 

xOH(I,J,X)*CON 


-B-62- 


0158  Q  >C0N/(PI'«'P1) 

0159  00  1*1, NFR 

0160  C(I)  »C(I)*Q 

0161  DO  J*1,NSEC 

0162  DB(I,J)  *0B(t,J)*CCM4 

0163  OTd.J)  *0T(I,J)*C0»(4 

0164  END  DO 

0165  END  DO 

0166  RETURN 

0167 

0168  5660  F0RHAT(F5.2.12F7.3> 

0169  END 

PROGRAM  SECTIONS 


Name  Bytes  Attributes 


0  SCOOE 

2132 

PIC  CON 

REL 

LCL 

SHR 

EXE 

RO 

NOWRT 

LONG 

1  SPOATA 

106 

PIC  CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

168 

PIC  CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

3  OG 

960000 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

4  DGI 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

WRT 

LONG 

5  OGILR 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

6  DGL 

60 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

7  01 

8012 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

8  OIL 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated  970498 


ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  OGNK  1# 

VARIABLES 


Address  Type  Name  Attributes  References 


«* 

R*4 

COAX 

104* 

105 

106 

107 

108 

109 

110 

111 

112 

122* 

123 

124 

125 

126 

127 

128 

129 

130 

*• 

R*4 

COBRSS 

89* 

108 

** 

R*4 

CON 

29* 

30 

153 

154 

158 

•• 

R*4 

CON4 

H 

O 

162 

163 

** 

R*4 

COSA2 

72* 

75 

•* 

R*4 

COSB 

65= 

66(2) 

79 

83 

89 

98 

R*4 

C0S82 

66* 

76 

4-00000000 

R*4 

DX 

COMM 

20 

29(2) 

32 

53 

143 

2-00000090 

R*4 

OXX 

59* 

60 

141 

•« 

R*4 

FCCO 

90* 

109 

*« 

R*4 

Fees 

91* 

127 

2-00000098 

R*4 

FCO 

92* 

111 

129 

•« 

R*4 

FCPX 

78* 

79 

81 

92 

93 

R*4 

FCPXC 

82* 

83 

85 

92 

93 

2-0000009C 

R*4 

FCS 

93* 

112 

130 

** 

1*4 

I 

35* 

37 

38 

40 

41 

N 

O 

153(2) 

154(2) 

159* 

160(2) 

162(2) 

163(2) 

2-00000078 

1*4 

I  SEC 

51* 

53 

56(2) 

58 

106(2) 

107(2) 

108(2) 

109(2) 

114(2) 

117(2) 

118(2) 

124(2) 

125(2) 

126(2) 

127(2) 

132(2) 

133(2) 

136(2) 

143(13) 

2-0000008C 

1*4 

ISEG 

58* 

59 

2-00000084 

1*4 

IX 

56= 

78 

82 

139(2)* 

2-00000088 

1*4 

ir 

57* 

80 

84 

140(2)* 

•* 

1*4 

J 

36= 

37 

38 

40 

41 

151* 

153(2) 

154(2) 

161* 

162(2) 

163(2) 

** 

1*4 

K 

39* 

40 

41 

103* 

104 

105(2) 

106(2) 

107(2) 

108(2) 

109(2) 

114(2) 

117(2) 

118(2) 

121- 

122 

123(2) 

124(2) 

125(2) 

126(2) 

127(2) 

132(2) 

133(2) 

136(2) 

152= 

153(2) 

154(2) 

5-00000000 

1*4 

LISTO 

COMM 

21 

46 

143 

1*4 

N 

74* 

75(3) 

76(3) 

113* 

114(3) 

116* 

117(3) 

118(3) 

131* 

132(3) 

133(3) 

135* 

136(3) 

5-00000004 

1*4 

NFR 

COMM 

21 

35 

36 

74 

103 

113 

116 

121 

-B.63- 


131 

135 

150 

151 

159 

4-00000004 

I»4 

NSEC 

COMM 

20 

39 

51 

58 

152 

161 

7-00001 F48 

1*4 

NSEC2 

COMM 

23 

31 

** 

1*4 

NSEC2P 

31> 

82 

84 

** 

R*4 

OT 

32= 

52 

53 

59 

8-00000000 

R*4 

PI 

COMM 

24 

29 

158(2) 

*« 

R*4 

Q 

158= 

160 

2-OOOOOOAO 

R*4 

03 

94= 

99 

124 

•• 

R*4 

04 

95= 

100 

106 

** 

R*4 

05 

96= 

125 

** 

R*4 

06 

97= 

107 

2-00000094 

R*4 

RSIA2 

86= 

110 

128 

IHt 

R*4 

RSS 

87= 

88 

89 

126 

** 

R*4 

RSSH 

88= 

90 

91 

** 

R*4 

SINA 

73= 

80 

84 

86 

87 

92 

93 

** 

R*4 

SINB 

68= 

69 

87 

** 

R*4 

T1 

99= 

123 

2-00000044 

R*4 

T2 

98= 

99 

100(2)= 

105 

** 

R*4 

T3 

81  = 

94 

95 

R*4 

T4 

85= 

94 

95 

•* 

R*4 

T5 

80= 

81 

96 

97 

R*4 

T6 

84= 

85 

96 

97 

** 

R*4 

T7 

111= 

114 

129= 

136 

** 

R*4 

T8 

79= 

90 

91 

112= 

118 

130= 

133 

*« 

R*4 

T9 

83= 

90 

91 

110* 

117 

128= 

132 

2-00000080 

R*4 

X 

53= 

62 

71 

73 

141(2)= 

*« 

R*4 

XM 

62= 

71 

73 

2-0000007C 

R*4 

Y 

52= 

60(2)= 

61 

65 

68 

R*4 

YM 

61= 

65 

68 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

6-00000000 

R*4 

C 

COMM 

60 

(15) 

22 

105(2)= 

123(2)= 

160(2)= 

2-00000000 

R*4 

COA 

60 

(45) 

26 

70= 

71= 

72(2) 

75(3). 

98 

104 

122 

3-OOOOB8AO 

R*4 

DB 

COMM 

30000 

(15,  500) 

17 

162(2)= 

37. 

106(2). 

124(2)= 

143(2) 

3-00000000 

R*4 

OG 

COMM 

450000 

(15,  15,  500) 

17 

40= 

108(2)= 

117(2)= 

126(2). 

132(2)= 

143(5) 

153(2)= 

3-0006ODO0 

R*4 

OH 

COMM 

450000 

(15,  15,  500) 

17 

41  = 

109(2)= 

114(2)= 

118(2). 

127(2)= 

133(2)= 

136(2)= 

143(3) 

154(2). 

3-000E30O0 

R*4 

OT 

COMM 

30000 

(15,  500) 

17 

163(2)= 

38= 

107(2)= 

125(2)= 

143(2) 

7-00000000 

R*4 

FCP 

COMM 

4008 

(1002) 

23 

78 

82 

7-OOOOOFA8 

R*4 

FTP 

COMM 

4000 

(1000) 

23 

80 

84 

2-0000003C 

R*4 

SIB 

60 

(15) 

26 

67= 

69= 

76(3)= 

114 

117 

118 

132 

133 

136 

PARAMETER  CONSTANTS 

Type  Name  References 

17(6)  22  26(2) 

U(3)  17(4) 

14(2) 

23 
23 


1*4 

NFRMX 

13# 

1*4 

NSECMX 

13# 

1*4 

NYMAX 

13# 

1*4 

NYSMX 

14# 

1*4 

NYSMX2 

14# 

LABELS 


Address  Label  References 


1-00000000 

210' 

46 

47# 

** 

520 

103 

120# 

540 

121 

138# 

•• 

650 

58 

142# 

750 

51 

149# 

i 

i 

1-00000061  S660'  143  168# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name 

.  R»4  MTHSSORT 


I 


KEY  TO  REFERENCE  FLAGS 
-  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Arguaent,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 


References 

68  n 


f* 


I 


-B-65- 


24'May-1988  10:53:07  VAX  FORTRAN  V4.0-2  P 

31-Mar-1987  16:44:35  DUAO: CCHIANG. 3037. OSN.MELl FFCP. FOR; 1 


0001  SUBROUTINE  FFCP(  N,  XCC,  FCP) 

0002  C  (3037-MELLOR-FFCP)  FIND  Fc'  USING  A  FORHULA  (  FOR  NACA  a>:1.0) 

0003  C  REF.  ABBOTT  &  VON  OOENHOFF,  1959,  EO.  4.25 

0004  C  INPUT  N  t  XCC;  OUTPUT  FCP 

0005  C  REFERENCED  BY  INPUT  (TWICE);  REFERENCES  MTHSALOG  &  NTHSATAN 

0006  C  ADAPTED  FROM  (3037-HELLOR- INPUT);  CODED  BY  U.  CHIANG,  25MAR87;  TOUCHED  31HAR87 

0007 

0008  C  N  «  OF  PTS.;  N>2 

0009  C  XCC  DISTANCE  ALONG  CHORD,  RANGES  FROM  0  TO  100,  SIZE  N,  XCC  IN 

0010  C  ASCENDING  ORDER  EXCEPT  XCC(N-I)  t  XCC(N)  COULD  BE  ANY  NUMBER 

0011  C  FROM  0  TO  100 

0012  C  FCP  dY/dX,  SIZE  N 

0013 

0014  DIMENSION  FCP(N),  XCC(N) 

0015 

0016  IF  (  XCCCD.LT.O.)  THEN 

0017  GOTO  1100 

0018  ELSE 

0019  IF  (  XCC(1).LT..001)  THEN 

0020  N1  >2 

0021  ELSE 

0022  N1  >1 

0023  END  IF 

0024  END  IF 

0325 

0026  PI4  =ATAN(1.)  *  16. 

0027  DO  I3N1,N 

0028  IF  (  XCC(I).GT.99.999  )  THEN 

0029  IF  (  I.LT.NU2  .OR.  XCCCI ).GT.  100.  )  THEN 

0030  PRINT  *,  'I<N1+2  or  XCC(I )>100. . .  I,  Nl,  XCC(I) 

0031  STOP  'FFCP. 210' 

0032  ELSE 

0033  FCP(I)»FCP(I-1)*2.-FCP(I-2) 

0034  END  IF 

0035  ELSE 

0036  FCP(I)»ALOG<  lOO./XCCd )-1 .  )  /  PI4 

0037  END  IF 

0038  END  DO 

0039  IF  (NI.EO.Z)  FCP(1)«FCP{2)+FCP(2)-FCP<3) 

0040 

0041  RETURN 

0042 

0043  1100  PRINT  *,  'CHECK  0<»XCC*>100. . . ' ,  XCC{1),  XCC(H),  N 

0044  STOP  'FFCP. 1100' 

0045  END 

PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

433 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1  SPOATA 

61 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

2  SLOCAL 

120 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated 

614 

ENTRY  POINTS 


Address 

Type 

Name 

References 

0-00000000 

FFCP 

1# 

VARIABLES 

Address 

Type 

Name 

Attributes 

References 

*• 

1*4 

I 

27= 

28  29(2) 

30(2) 

33(3) 

36(2) 

AP-00000004a  1*4 

N 

1 

14(2)  27 

43(2) 

2-00000000 

1*4 

Nl 

20= 

22=  27 

29 

30 

39 

** 

R*4 

PI4 

26= 

36 

ARRAYS 

Address 

Type 

Naaw 

Attributes 

Bytes 

Dimensions 

References 

-BM- 


AP-OOOOOOOCa  R*4 

FCP 

*•  (*) 

1 

14 

33(3)= 

36= 

39(4)= 

AP- 000000088  R*4 

XCC 

**  {•) 

1 

14 

16 

19 

28 

29 

30 

36 

43(2) 

LABELS 

Address  Label 


References 


1100 


17  43# 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

References 

R*4 

MTHSALOG 

36 

R*4 

MTHSATAN 

26 

KEY  TO  REFERENCE  FLACS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  •  Actual  Arguswnt,  possibly  swdified 

D  -  Data  Initialization 

(n)  -  NiiiR>er  of  occurrences  on  line 


COMMAND  QUALIFIERS 


F/LIS/CHE/CRO  FFCP 


/CHECK>(B0UN0S, OVERFLOW, UNDERFLOW) 

/OEBUC3(NOSYM80LS, TRACEBACK) 

/STANDAROa(NOSYNTAX, NOSOURCE  FORM) 

/SHOU>( NOPREPROCESSOR . NOI NCLUDE , MAP , NOD I CT ION AR Y , S I NGLE ) 
/WARNINGS«<GCNERAL , NOOECLARAriONS) 

/C0NTINUATI0NS»19  /CROSS  REFERENCE  /NOD  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /I4  /NOMACHINE  CODE  /OPtTmIZE 


H 


BS7- 


24-May-1988  10:33:33  VAX  FORTRAN  V4.0-2 
5-Mar-1987  11:17:21  DUAO: [CHIANG. 3037. DSN. MEL]GNK.FOR;1 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

•  0037 
0038 
0039 

•  0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 


SUBROUTINE  GNK(ICA) 


C  (3037-MELL0R-GNK)  (G)  CALC.  DOUBLE  FOURIER  INTEGRALS 
C  (CF.  MILLOR,  1959,  TABLE  3) 

C  REFERENCED  BY  LOOP,  REFERENCES  NONE 

C  INPUT  AI,  C,  CS,  DB,  DG,  OH,  DT,  OX,  LISTO,  NFR,  NSEC,  KA,  R,  XSA,  &  XSI 
C  OUTPUT  B,  G,  H,  8  T 
C  REQUIRES  DATA  GENERATED  FRON  (3037-RI) 

C  INOECES  N  t  K,  STARTING  0,  ARE  REPLACED  BY  N  &  K  STARTING  1 
C  COOED  BY  W.  CHIANG,  13JUL83,  REVISED  30AUG83 
C  TRANSLATED  FROM  (3037-CASCAO [98451 -GNK),  S.  HSU,  10OCT86 
C  REVISED  30JAN87,  CHIANG;  TOUCHED  05MAR87 

PARAMETER  (  KANX^E,  KXMX>76,  NFRHX>15,  NSECMX>500) 


DG( NFRHX , NFRHX , NSECMX ) , 

DH ( NFRMX , N FRMX , NSECHX ) , 

OB(NFRMX, NSECMX),  OT(NFRMX, NSECMX) 

DX,  NSEC 
LISTO,  NFR 
C(NFRMX) 

AKKXMX.KAMX),  R(KXMX,XAMX),  XSA,  XSI 

CSA 

G(NFRMX, NFRMX),  H(NFRMX, NFRMX), 

B(NFRMX),  T(NFRMX),  AMDAO,  CS 


C  200  INITIALIZATION  *** 
DO  K>1,NFR 

B(K)  <0. 

T(K)  »0. 

DO  N=1,NFR 

G(N,K)«0. 
H(N,K)*0. 

END  DO 
END  DO 


CQMMON/DG  / 


COMMON/DGI  / 
COMMON/DGILR/ 
COMMON/DG  L  / 
COMMON/  GI  / 
COMMON/  GILR/ 
COMMON/  G  LR/ 


C  100  CONSTANT  *•* 
DXCS>0X*CS 


C  300  LOOP  THRU  SECTIONS  *•* 

DO  ISEC«1,NSEC 

XK  »<  (ISEC-.5)*0XCS-XSA  )/XSI  ♦  1. 
KX1«INT(XK) 

KX2*I0(1*1 

RV«(XK-XX1)*R(KX2,KA)+(XX2-XK)»R(KX1,ICA) 

AIV3(XK-KX1)*AI(KX2,KA)'»(KX2-XK)*AI(KX1,KA) 

DO  K=1,NFR 

B(K)  =OB(K,ISEC)*RV  *  B(K) 

T(K)  =0T(K,ISEC)*AIV  ♦  T(K) 

DO  Nsl.NFR 

G(N,K)  *OG(N,X,ISEC)*RV  ♦  G{N,K) 

H(N,K)  <0H(N,K,ISEC)*AIV  *  H(N,K) 

END  DO 
END  DO 
END  DO 


DO  K>1,NFR 

B(K)  »B(IC)*CS  ♦  C<K) 

T(K)  *T(K)*CS 

DO  N«1,NFR 

G(N,K)«G(N,K)*CS  ' 

H(N,K)>H(N,K)*CS. 

END  DO 
END  DO 

G(1,1)«G{1,1)+1. 

DO  M»2,NFR 

G(N,N)  =G(N,N)-1. 

END  DO  I 

IF  (LISTO.EQ.1)  THEN 
IF  (CS.EQ.CSA)  THEN 

WRITE(6,5400)  AMOAD,  CS,  G(1,1),  G<1,3).  G(2,2).  G{3,1), 

♦  G(3,3),  H(1,1),  H(1,2),  H<2,1),  B(1),  B(2),  T(1),  T(2) 

ELSE 

WRITE(6,5410)  CS,  G(1,1),  G(1,3>,  6<2,2),  G(3,1), 

+  G(3,3),  H(1,1),  H<1,2).  H(2,1).  B<1),  B(2),  T(1),  T(2) 

-B-68- 


0078 

END  IF 

0079 

END  IF 

0080 

0081 

IF  (LISTO.EO.II)  THEN 

0082 

WRITE(6,5420)  AMOAO,  CS,  G(1,1), 

G(1,3),  G{2,2),  G(3,1). 

0083  ♦ 

G(3,3),  H(1,1),  H{1,2). 

H(2.1).  Bd). 

8(2), 

Td),  T(2) 

0084 

WRITEdO,*)  (  (  G(N,K),  K=1,NFR) 

.  N=1,NFR), 

0085  ♦ 

{  {  H(H,IC),  K=1,HFR) 

,  N=1.NFR),  ( 

B(N), 

N=1,NFR), 

0086  + 

(  T(N),  N=1,NFR) 

0087 

END  IF 

0088 

0089 

RETURN 

0090 

0091  5400  FO«HAT(/F4.0,F6.1,12F6.3) 

0092  5410 

FORMATl  F10.1,12F6.3) 

0093  5420 

FORMATl  F4.0,F6.1,12F6.3) 

0094 

END 

PROGRAH  SECTIONS 

Name 

Bytes 

Attributes 

0  SCOOE 

1495 

PIC  CON  REL 

LCL 

SHR  EXE 

RD 

NOURT 

LONG 

1  SPOATA 

34 

PIC  CON  REL 

LCL 

SHR  NOEXE 

RD 

NOURT 

LONG 

2  (LOCAL 

8 

PIC  CON  REL 

LCL  NOSHR  NOE)(E 

RO 

URT 

LONG 

3  OG 

960000 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

URT 

LONG 

4  DGl 

8 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

5  DGILR 

8 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RO 

URT 

LONG 

6  DGL 

60 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

7  GI 

4872 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

URT 

LONG 

8  GILR 

4 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

9  GLR 

1928 

PIC  OVR  REL 

GBL 

SHR  NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated  968417 


ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  GHK  1# 


VARIABLES 


Address  Type 

Name 

Attributes 

References 

*• 

R*4 

AIV 

46= 

50 

53 

9-00000780 

R*4 

AMOAO 

COMM 

24 

73 

82 

9-00000784 

R*4 

CS 

COMM 

24 

28 

59 

60 

62 

63 

72 

73 

76 

82 

8-00000000 

R«4 

CSA 

COMM 

23 

72 

4-00000000 

B*4 

OX 

COMM 

19 

28 

2-00000000 

R*4 

DXCS 

28= 

42 

2-00000004 

1*4 

I  SEC 

41= 

42 

49 

50 

52 

53 

•* 

1*4 

K 

31= 

32 

33 

35 

36 

48= 

49(3) 

50(3) 

52(3) 

53(3) 

58= 

59(3) 

60(2) 

62(2) 

63(2) 

84(4)= 

AP- 00000004a 

1*4 

KA 

1 

45(2) 

46(2) 

** 

1*4 

KXl 

43* 

44 

45(2) 

46(2) 

1*4 

KX2 

44= 

45(2) 

46(2) 

5-00000000 

1*4 

LISTO 

com 

20 

71 

81 

** 

1*4 

N 

34= 

35 

36 

51= 

52(3) 

53(3) 

61  = 

62(2) 

63(2) 

67= 

68(4) 

84(8)- 

5-00000004 

1*4 

NFR 

com 

20 

31 

34 

48 

51 

58 

61 

67 

84(6) 

4-00000004 

1*4 

NSEC 

com 

19 

41 

•* 

R*4 

RV 

45= 

49 

52 

*« 

R*4 

XK 

42= 

43 

45(2) 

46(2) 

7-00001300 

R*4 

XSA 

com 

22 

42 

7-00001304 

R*4 

XSI 

com 

22 

42 

ARRAYS 

Address 

Type 

Naaie 

Attributes 

Bytes 

Oimensions 

References 

7-00000000 

R*4 

AI 

COMM 

2432 

(76.  8) 

22 

46(2) 

9-00000708 

R*4 

B 

COMM  . 

60 

(15) 

24 

32- 

49(2)- 

59(2)» 

73(2) 

6-00000000 

R*4 

C 

COMM 

3-OOOOBBAO 

R*4 

DB 

COMM 

3-00000000 

R*4 

OG 

COMM 

3-00060000 

R*4 

OH 

COMM 

3-0O0E30O0 

R*4 

OT 

COMM 

9-00000000 

R*4 

G 

COMM 

9-00000384 

R»4 

H 

COMM 

7-00000980 

R*4 

R 

COMM 

9-00000744 

R*4 

T 

COMM 

PARAHETER  CONSTANTS 


Type 

Name 

1*4 

KAMX 

1*4 

KXMX 

1*4 

NFRMX 

1*4 

NSECMX 

LABELS 

Address  Label 

1-00000000  5400' 
1-00000000  5410' 
1-00000016  5420' 


60 

30000 

(15) 

(15. 

500) 

76(2) 

21 

16 

450000 

(15. 

15.  500) 

16 

450000 

(15. 

15,  500) 

16 

30000 

(15. 

500) 

16 

900 

(15. 

15) 

24 

900 

(15. 

15) 

68(2)= 

24 

2432 

(76, 

8) 

76(3) 

22 

60 

(15) 

24 

76(2) 

References 

14# 

22(2) 

14« 

22(2) 

14« 

16(6) 

21 

24(6) 

14# 

16(4) 

References 

73 

91# 

76 

92# 

82 

93# 

82(2) 

59 

49 

52 

84 

53 

50 

35= 

52(2)= 

62(2)  = 

66(2)= 

73(5) 

76(5) 

82(5) 

84 

36= 

53(2)= 

63(2)  = 

73(3) 

82(3) 

45(2) 

84 

33= 

50(2)= 

60(2)= 

73(2) 

82(2) 

84 

+ - - - ...  — - -  — - + 

KEY  TO  REFERENCE  FLAGS  j 

3  -  Value  Modified  I 

#  -  Defining  Reference  ) 

A  -  Actual  Argunmt,  possibly  modified 

0  -  Data  Initialization  | 

(n)  -  Nuiter  of  occurrences  on  line  | 

^ — - - - ...... - - - - - — + 


15-Jun-1988  16:06:52  VAX  FORTRAN  V4.0-2  P 

1-Jun-1988  13:28:09  OUAO: CCHIANG.3037.MELLOR] INPUT.FOR;2 


0001  SUBROUTINE  INPUT 

0002 

0003  C  (3037-MELL0R- INPUT)  (I)  INPUT  DATA 
0004  C  REFERENCED  BY  MAIN  (HELLOR) 

0005  C  REFERENCES  FFCP  (TWICE),  FILONC  &  SPLINI  (4  TIMES)  &  FORSCLOSE  (TWICE), 

0006  C  FORSOPEN,  MTHSCOSO  (TWICE),  &  MTHSSIND  (TWICE) 

0007  C  INPUT  AI,  CA,  CBI,  CC,  CIN,  CSA,  CSI,  CSZ,  EPS,  F$,  ICL,  IFLAT, 

0008  C  INMAX,  LAMOA,  LAMOI,  LAMOZ,  LIST,  MH,  NB,  NFR,  NFRHX,  NSEC, 

0009  C  NSECMX,  NYC,  NYT,  R,  TTLS,  XC,  XT,  XSA,  XSI,  XSZ,  YC,  &  YT 

0010  C  COOED  BY  W.  CHIANG,  KJULSS 

0011  C  100CT86,  S.  HSU  TRANSLATED  FROM  (3037-CASCA0 [9845] -INPUT)  WHICH  WAS 
0012  C  ADAPTED  FROM  (3725-CASCAO CHP9845] -INPUT) 

0013  C  REVISED  31MAR87;  SLIGHTLY  REVISED  01JUN88;  CHIANG 

0014 

0015  C 

0016  C  REA01  TITLE  (WILL  NOT  SHOW  IN  OUTPUT) 

0017  C 

0018  C  READ2  TITLE  (TO  BE  SHOWN  IN  OUTPUT) 

0019  C 

0020  C  READ3 

0021  C  MH  >  1  TO  CALCULATE  THE  CASE  SHOWN  IN  MELLCXt  (1959); 

0022  C  >  2  FOR  THE  CASE  FOLLOWS  HERRIG,  et  si.  (1951) 

0023  C  >11  TO  PREPARE  A  TABLE  OF  G,  H,  B,  &  T  FUNCTIONS  (OF  STAGGER 

0024  C  ANGLE)  FOR  A  SPEIFIEO  SOLIDITY 

0025  C  INCAM  >  1  IF  THE  CAMBER  IS  A  CIRCULAR  ARC; 

0026  C  >  2  IF  THE  BLADE  IS  NACA  65  W/  a>1.0; 

0027  C  =  3*  IF  THE  CAMBER  IS  TO  BE  CALCULATED  FROM  A  FORMULA 

0028  C  IFLAT  (NOT  USED  IF  INCAM>1) 

0029  C  >  0*  IF  THE  INPUT  CAMBER  IS  NOT  TO  BE  MODIFIED; 

0030  C  =  1  IF  THE  SLOPES  OF  INPUT  CAMBER  ARE  TO  BE  KEPT  CONSTANT 

0031  C  WITHIN  5X  OF  BOTH  ENOS  (SEE  MELL(Xl,  1959) 

0032  C  NSEC  «  OF  SEGMENTS  ALONG  THE  CHORD,  e.g.,  50; 

0033  C  SET  TO  10  IF  HH>1  TO  COMPARE  W/  TABLES  IN  MELLOR  (1959) 

0034  C  NFR  «  OF  FOURIER  SERIES  TERMS  TO  BE  USED,  e.g.,  NFR>3  TO  HAVE  AO, 

0035  C  AI ,  &  A2 

0036  C  LIST  >0  IF  CAMBER  &  THICKNESS  DATA  ARE  NOT  TO  BE  LISTED; 

0037  C  »  1*  TO  LIST 

0038  C 

0039  C  REA04 

0040  C  CBID  INPUT  IDEAL  CB  (KNOWM)  FOR  THE  INPUT  CAMBER,  IF  THE  CALCULATED  CB 

0041  C  IS  TO  BE  NEGLECTED;  OTHERWISE,  INPUT  A  NUMBER  »9  TO  USE  THE 

0042  C  CALCULATED  CB 

0043  C  SENDI  A  FACTOR  TO  BE  USED  BY  4  SUB  SPLINI  IN  THIS  ROUTINE....  IT  IS  TO 
0044  C  BE  APPLIED  TO  S(2)  &  S(N-1)  TO  OBTAIN  S(1)  &  S(N),  S  BEING 

0045  C  CURVATURE...  NORMALLY  0,  .5.  OR  1...  e.g.,  1  FOR  CAMBER  & 

0046  C  THICKNESS  DISTRIBUTIONS 

0047  C 

0048  C  *****  SKIP  REA05  &  REA06,  IF  MH.NE.1  ***** 

0049  C  READ5  (I  IF  MH>1) 

0050  C  LISTO  =  1  TO  MAKE  0G00-0T1  &  G00-T1  TABLES  (MELLOR,  1959); 

0051  C  >  2  TO  MAKE  A01-AT  TABLE; 

0052  C  >  3  TO  MAKE  CL -AT  TABLE 

0053  C 

0054  C  REA06  (I  IF  MH>1) 

0055  C  ALPHAMMEAN  ANGLE  OF  INCIDENCE,  IN  deg.  (NOT  USED  IF  LISTO>1) 

0056  C 

0057  C  *****  SKIP  REA07  ft  REA08,  IF  MH.NE.2  ***** 

0058  C  READ7  (I IF  MH>2) 

0059  C  IRES  *  1  TO  FIND  LIFT  COEF.  BY  CL=2*PI*(A1+A2); 

0060  C  >  2  TO  CALC.  CL  AS  ABOVE  PLUS  BETA1  t  CL1 

0061  C  ISCL  >0  TO  DO  NOTHING 

0062  C  >  1  TO  STORE  CALCULATED  SET  OF  LIFT  COEFFICIENTS  TO  BE  COMPARED 

0063  C  W/  HERRIG,  et  al.,  1951 

0064  C 

0065  C  REA08  (I  IF  MH>2) 

0066  C  CC  FACTOR  FOR  EFFECTIVE  CB,  «1,  1  FOR  THEO.  VALUES,  MELLOR  HAS  .725 

0067  C  CA  FACTOR  FOR  EFFECTIVE  ALPHA(M),  <*1,  1  FOR  THEORETICAL  VALUES 

0068  C  CSA  STARTING  C/S  (SOLIDITY)  FOR  CASES  TO  BE  CALCULATED,  e.g.,  0. 

0069  C  CSI  INCREMENT  OF  C/S  TO  BE  CALCULATED,  e.g.,  2.0 

0070  C  CSZ  ENDING  C/S,  e.g.,  .5 

0071  C  SENDS  A  FACTOR  TO  BE  USED  BY  4  SUB  SPLINI  IN  SUB  LOOP...  IT  IS  TO 

0072  C  BE  APPLIED  TO  S(2)  &  S(N-1)  TO  OBTAIN  S(1)  &  S(N),  S  BEING 

0073  C  CURVATURE...  NORMALLY  0,  .5,  OR  1...  e.g.,  .5  FOR  SOME 

0074  C  DISTRIBUTIONS 

0075  C 

0076  C  *****  SKIP  REA09  IF  MH.NE.11  *****  -B-71- 

0077  .  C  READ9  (IIF  MH«11) 


0078  C  CSA  C/S  (SOLIDITY)  FOR  THE  GENERATED  TABLE  OF  G,  H,  B,  &  T  FUNCTIONS 

0079  C 

0080  C  READ 10 

0081  C  IDUM  INTEGER  999,  TO  CHECK  THE  END  OF  INPUT  FROM  UNIT  5 

0082 

0083  C  *****  SKIP  REA0701  THRU  REA070<S,  IF  MH.NE.2  ***** 

0084  C  READ 701  (I  IF  HH>2) 

0085  C  NB  #  OF  ELEMENTS  IN  ARRAY  BETA1 

0086  C  NS  #  OF  ELEMENTS  IN  ARRAY  SIG 

0087  C  NC  #  OF  ELEMENTS  IN  ARRAY  CB1 

0088  C  NA  #  OF  ELEMENTS  IN  ARRAY  ALPHA 1 

0089  C 

0090  C  REA0702  (11 F  MH>2) 

0091  C  BETA1  BETA  AT  INLET,  IN  DEG.  SIZE  NB 

0092  C 

0093  C  READ 703  (I IF  MH-2} 

0094  C  SIG  SOLIDITY,  SIZE  NS 

0095  C 

0096  C  RE AO 704  (I  IF  MH*2) 

0097  C  CB1  Cb,  SIZE  NC 

0098  C 

0099  C  READ 705  (I IF  MH>2) 

0100  C  ALPHA1 INCIDENT  ANGLE  AT  INLET,  IN  DEG,  SIZE  NA 

0101  C 

0102  C  READ 706  (I IF  MH>2) 

0103  C  ICL  INTEGER  VALUES  OF  10000  TIMES  OF  LIFT  COEFFICIENT.  EXPERIMENTAL 

0104  C  VALUES  WHEN  INPUT,  CALCULATED  VALUES  WHEN  OUTPUT,  SIZE  (NA,NC,NS,NB) . 

0105  C  THOSE  NOT  USED  ARE  ASSIGNED  A  VALUE  HIGHER  THAN  32600 

0106 

0107  C  REA0901 

0108  C  TITL  TITLE  FOR  THIS  R  &  I  FUNCTION  FILE 

0109  C 

0110  C  REA0902 

0111  C  EPS  CLOSING  CRITERION  USED  IN  PROGRAM  RI,  NO  USE  HERE 


0112  C  AMDA  STARTING  STAGGER  ANGLE,  IN  DEG 

0113  C  AMOI  INTERVAL  OF  STAGGER  ANGLE,  IN  DEG 

0114  C  AMOZ  ENDING  STAGGER  ANGLE,  IN  DEG 

0115  C  XSA  '  STARTING  XS  (  [XO-Xl/S,  SEE  MELLOR,  1959) 

0116  C  XSI  INTERVAL  OF  XS 

0117  C  XSZ  ENDING  XS 

0118  C 

0119  C  READ903 


0120  C  R  R  FUNCTION,  SEE  MELLOR,  1959 

0121  C  AI  I  FUNCTION,  SEE  MELLOR,  1959 

0122  C  JACK  A  DUMMY  NUMBER,  SHOULD  BE  999  IF  DATA  FILE  IS  CORRECT 

0123 

0124  C  *****  SKIP  REAO1101  THRU  REA01104  IF  INCAM. NE. 2  ***** 

0125  C  REA01101  (I  IF  INCAM=2) 

0126  C  TITL  TITLE  FOR  THIS  CAMBER  DATA  FILE 
0127  C 

0128  C  REA01102  (I  IF  INCAH-2) 

0129  C  NYC  «  OF  DATA  SETS  FOR  CAMBER  COORDINATES 
0130  C 

0131  C  REA01103  (I  IF  INCAM<2) 

0132  C  XC  X-COORDINATES  FOR  CAMBER  YC,  SIZE  NYC 

0133  C 

0134  C  READ1104  (IIF  INCAM>2) 

0135  C  YC  CAMBER  AS  FUNCTION  OF  XC,  SIZE  NYC 


0136  C 

0137  C  REA01105 

0138  C  TITL  TITLE  FOR  THIS  BLADE  THICKNESS  FILE 
0139  C 

0140  C  REA01106 

0141  C  NYT  #  OF  DATA  SETS  FOR  BLADE  THICKNESS 
0142  C 

0143  C  REA01107 

0144  C  XT  X-COOROINATES  FOR  DATA  OF  THICKNESS  YT,  SIZE  NYT 
0145  C 

0146  C  REA01108 

0147  C  YT  HALF-THICKNESS  OF  BLADE  AT  CORRESPONDING  XT,  SIZE  BYT 
0148  C 

0149  C  REA01109 

0150  C  JACK  3  999  AS  A  CHECK 

0151  C 

0152 

0153  CHARACTER  T0ATE*9,  TITL*90 

0154 

0155  PARAMETER  (  KAMX«8,  KXMX»76,  NAMX=19,  NBMX=4,  NCMX=9,  NFRMX=15, 

0156  +  NSMX=5,  MSECMX=500,  NYMAX=100) 

0157  PARAMETER  (  NYSMX=MAX(  MSECMX*2,  MAX(  NYMAX,  MSECMX» 1 *2 ) ) , 
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NYSHX2=MAX(  NYMAX+1,  MSECMX*2)  ♦  2) 


COMHON/M  IL  / 

TDATE 

COMMON/ 

DGI  / 

DX,  NSEC 

COMMON/ 

DGILR/ 

LISTO,  NFR 

COMMON/ 

0  I  / 

FCP!NYSMX2),  FTP(MYSMX), 

COMMON/  0  IL  / 

PI 

COMMON/ 

GI  / 

AI!KXMX,KAMX),  R!KXMX,KAMX), 

COMMON/ 

GILR/ 

CSA 

COMMON/ 

IL  / 

I CL! NAMX , NCMX , NSMX , NBMX ) , 

+ 

BETAUNBMX),  CBKNSMX),  V!NFRMX), 

+ 

AMOA,  AMDZ,  AMOI,  CA,  CC,  CSI,  CSZ 

* 

SEN05,  TOC,  ISCL,  MH,  1 

COMMON/ 

ILR/ 

ALPHAM,  CALPHA,  CB,  PI2 

COMMON/ 

I  R/ 

IRES,  SA2PI,  TOC2PI 

NSEC2 
XSA,  XSI 


OIMEMStOW  ALPHAUMAMX),  0UMMY(MYSMX2).  SIG(MSMX), 

4-  XC(MYMAX),  XCC(MYSMX2),  XT(NYMAX).  YC(NYMAX),  YT(NYMAX) 


DATA 


P 1/3. 14159265359/ 


C  100 

READ  (5,5101)  TITL 
READ  (5,5101)  TITL 
WRITE(6,5103)  TITL 

READ  (5,*)  MH,  IMCAH,  IFLAT,  MSEC,  MfR,  LIST 
READ  (5,*)  C8ID,  SENDl 

URITE(6,120)  MH,  IMCAM,  IFLAT,  NSEC,  NFR,  LIST,  C8I0,  SENDl 
CC120  FORMAT!'  MH  IMCAM  IFLAT  NSEC'/1X5I10// 

120  FORMAT!'  MH,  INCAM,  1FLAT:'T40,3I5/ 

+  '  #  OF  SEGMENT  ON  A  BLADE :'T40, 15/ 

+  '  #  OF  FOURIER  SERIES  TERMS: 'T40, 15/'  LIST:'T40,I5/ 

+  '  CBI,  SEN01;'T40,2F8.2) 

IF  (MH.LT.I  .OR.  NSEC.GT.HSECMX  .OR.  MFR.LT.3  .OR.  MFR.GT.NFRMX) 

♦  THEM 

PRINT  *,  'CHECX  MH,  NSEC,  NFR...',  MH,  NSEC,  NFR,  NSECMX,  MFRMX 
STOP  'INPUT. 122' 

EMO  IF  '  ■ 

IF  (MH-2)  130,  140,  170 

130  READ  (5,*)  LISTO 
READ  (5,*)  ALPHAM 
URITE(6,135)  LISTO,  ALPHAM 
135  FORMAT!'  LISTO: 'T40, 15/ 

♦  '  MEAN  AIR  ANGLE  (des)  RELATIVE  TO  CHORO:'T40,F7.1/) 

CSA  =.5 

CSI  ».5 

CSZ  =2. 

IRES  >3 

GOTO  210 

140  READ  (5,*)  IRES,  ISCL 

READ  (5,*)  CC,  CA,  CSA,  CSZ,  CSI,  SEN05 

URITE!6,150)  IRES,  ISCL,  CC,  CA,  CSA,  CSZ,  CSI,  SEMD5 
150  FORMAT!'  IRES,  ISCL: 'T40, 215/ 

♦  '  CC,  CA,  CSA,  CSZ,  CSI,  SEM05: 'T40,6F8.2/) 

OPEN!  7,  FILE»'ICL',  STATUS* 'OLD',  READONLY) 

READ  (7,*)  NB,  NS,  NC,  NA 
URITE!6,160)  NB,  NS,  NC,  NA 
160  FORMAT!  '  MB,  NS,  NC,  NA;'T40,4I5) 

IF  (MB.GT.MBMX  .OR.  MS.GT.NSMX  .OR.  NC.GT.MCMX  .OR.  MA.GT.NAMX) 

♦  THEM 

PRINT  *,  'CHECK  NB,  NS,  NC,  NA...',  NB,  NS,  NC,  NA,  MBMX, 

♦  NSMX,  NCMX,  NAMX 
END  IF 

READ  (7,*)  !  BETAKI),  1*1, NB) 

READ  (7,*)  !  SIG!I),  1=1, NS) 

READ  (7,*)  !  CBKI),  1*1, NO 

READ  17,*)  !  ALPHAKI),  1*1, NA) 

READ  (7,*)  !  !  !  !  ICL! lA, IC, IS, IB) ,  IA*1,NA),  IC=1,NC), 

♦  IS*1,NS),  IB*1,NB),  JACK 
IF  ! JACK. NE. 999)  THEN 

PRINT  *,  'CHECK  TAPE7  DATA. . . JACK 
STOP  'INPUT. 168' 

END  IF 
CLOSE (7) 

GOTO  210 
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170  READ  !5,»)  CSA 


READ1 

REA02 

REA03 

READ4 


REA05 

REA06 


REA07 

READ8 


READ  701 


READ  702 
READ  703 
READ  704 
READ 705 

READ706 


REA09 


023a 

gRITE(6,*)  'SOLIDITY  =  CSA 

0239 

CSI  »1. 

0240 

CSZ  >CSA 

0241 

LISTO  =11 

0242 

0243 

C  200  READ  R  &  I  DATA  GENERATED  BY  (3037-RIS) 

0244 

210  READ  (9,5101)  TITL 

READ901 

0245 

URITE(6,5103)  TITL 

0246 

READ  (9,*)  EPS,  AMDA,  AMOZ,  AMOI,  XSA,  XSZ,  XSt 

REA0902 

0247 

KAZ  =(AMOZ-AM)A)/AHOI  +  1 

0248 

KXZ  =(XSZ-XSA>/XS1  +  1 

0249 

IF  (KAZ.GT.KAMX  .OR.  KXZ.GT.KXHX)  THEN 

0250 

PRINT  *,  'KAZ  OR  KXZ  EXCEEDED  DIN...'.  KAZ,  KXZ,  KAMX,  KXNX 

0251 

STOP  'INPUT. 210' 

0252 

END  IF 

0253 

READ  (9,*)  (  (  R(KX.KA),  KA»1,KAZ).  KX»1,KX2), 

0254 

+  (  (  AI(KX,KA),  KA>1,KAZ),  KX>1,KXZ),  JACK 

REA0903 

0255 

IF  (JACK. NE. 999)  THEN 

0256 

PRINT  *,  'CHECK  R  ft  I  DATA...',  JACK 

0257 

STOP  'INPUT. 220' 

0258 

END  IF 

0259 

0260 

CL0SE(9) 

0261 

C  250  PREPARE  DATA  FILE  MEL010.DAT  (TO  BE  USED  BY,  e.g.,  3037'DSN3-HELL0R2) 

0262 

IF  (LISTO. EO. 11}  THEN 

0263 

IF  (CSA. NE. CSZ)  THEN 

0264 

PRINT  *,  'CHECK  CSA,  CSZ  FOR  LISTO*11 . . . ' ,  CSA,  CSZ,  LISTO 

0265 

STOP  'INPUT. 3002' 

0266 

END  IF 

0267 

OPEN(  10,  FIIE«'HEL010',  STATUS='NEW' ) 

0268 

URITE(10,260)  TOATE 

U10.1 

0269 

260  FORMAT ( 

0270 

+  '  (3037-MELLOR-MEL010)  G  ft  H  FUNCTIONS  (MELLOR,  1959,  TABLE  3) 

t 

0271 

♦  T71 ,A9) 

0272 

WRlTEdO,*)  'NFR' 

W10.2 

0273 

URITEdO,*)  NFR 

U10.3 

0274 

URITEdO,*)  'CS,  AMOA,  AMOI,  AMOZ' 

U10.4 

0275 

URITEdO,*)  CSA,  AMDA,  AMOI,  AMOZ 

W10.5 

0276 

IF  (INCAM.lt. 2  .OR.  INCAM. GT. 3)  THEN 

0277 

PRINT  *,  'CHECK  INCAM  WHILE  LIST0=11 . . . ' ,  INCAM,  LISTO 

0278 

STOP  'INPUT. 265' 

0279 

ENO  IF 

0280 

0281 

ENO  IF 

0282 

C  300  READ  CAMBER  ft  THICKNESS  DATA  •*••* 

0283 

NYC  =0 

0284 

PI2  »PI*PI 

0285 

0286 

GOTO  (  1110,  1210,  1310),  INCAM 

0287 

1110  PRINT  *,  'SUB.  CIRARC  MOT  EXISTING...' 

0288 

CCC  CALL  CIRARC(  NYC,  XC,  YC) 

0289 

0290 

STOP  'INPUT. 11 10' 

0291 

Cl 200  INPUT  CAMBER  DATA 

0292 

1210  READ  (11,5101)  TITL 

READ1101 

0293 

WRITE(6,5103)  TITL 

0294 

READ  (11,*)  NYC 

REA01102 

0295 

IF  (NYC.GT.NYMAX)  THEN 

0296 

PRINT  *,  'NYCN.GT.NYMAX...',  NYC,  NYMAX 

0297 

STOP  'INPUT. 1215' 

0298 

ENO  IF 

0299 

READ  (11,*)  (  XC(I),  1=1, NYC) 

READ 1103 

0300 

0301 

READ  (11.*)  (  YC(I),  I»1,NYC) 

REA01104 

0302 

IF  (LIST.6T.0)  THEN 

0^03 

CALL  SPLINK  NYC,  XC,  YC,  NYC,  XC,  YC,  FCP,  DOM,  SENOI, 

0304 

0305 

♦  1.E-9) 

0306 

URITE(6,1220} 

0307 

1220  FORMAT(/21X'X  Yc  dYc/dX'/) 

0308 

DC  1=1, NYC 

0309 

URITE(6,6222)  XC(I),  YC(I),  FCP(I) 

0310 

IF  (  MOD(I,5).EO.O  )  URITE(6,6222) 

0311 

ENO  DO 

0312 

0313 

END  IF 

0314 

C1300  YC' 

0315 

1310  READ  (5,*)  JACK 

REA010 

0316 

IF  (JACK. NE. 999)  THEN 

0317 

PRINT  *,  'CHECK  DATA  IN  UNIT  5...',  JACK 
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END  IF 
CLOSECS) 


0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 


MYS  *«AX(  NYC,  NSEC+1) 

IF  (  HOO(NYS,2).EO.O  )  NYS>NYS+1 
IF  (NYS.GE.NYSNX2)  THEN 
PRINT  *,  'NYS.GE.NYSMX2',  NYS,  NYSMX2 
END  IF 


OTHETA  =PI/(NYS-1) 


DO 

1=1, NYS 

XCC!1) 

»!I-1)*OTHETA 

END  DO 

DO 

1=1, NYS 

XCC! I) 

=COS!  XCC! I)  ) 

END  DO 

DO 

1=1, NYS 

XCC! I) 

»!  1.-XCC!I)  ) 

END  DO 

C1320 

IF  (IFLAT.E0.1)  THEN 
NYSP1  »NYS+1 
NYSP2  =NYSP1+1 
XCC(NYSPI)  =5. 

XCC(NYSP2)  *95. 

ELSE 

NYSP2  =NYS 
END  IF 

IF  (NYSP2.GT.NYSMX)  THEN 
PRINT  •,  'NYSP2.GT.NYSMX...',  HYSP2.  NYSHX 
STOP  'INPUT. 1329' 

END  IF 

IF  (INCAM.E0.3)  THEN 
CALL  FFCP(  NYSP2,  XCC,  FCP) 

ELSE 

CALL  SPLINK  NYC,  XC,  YC,  NYSP2,  XCC,  DUMMY,  FCP,  OOM, 

♦  SEN01,  1.E-9) 

END  IF 

C1330  MAKE  CAMBER  SLOPE  CONSTANT  FOR  PORTIONS  <  SX  C  >  95  X 
IF  (IFLAT.EO.I)  THEN 
ITEM  »NYS*.3 

FCPA  »FCP(NYSP1 ) 

FCP2  ■FCP(MYSP2) 

DO  1*1, ITEM 

FCP<I)=MIN(  FCPd),  FCPA) 

END  DO 

DO  I*NYS-ITEM,NYS 

FCP<I)*MAX<  FCPd),  FCPZ) 

END  DO 

URITE(6,1340) 

1340  FORMAT!//'  CAMBER  SLOPE  ARE  FORCED  TO  BE  CONSTANT  FOR  THE  1ST  ' 
+  'i  LAST  5X  REGIONS...'//) 

END  IF 

C1360  PREPARE  DATA  FILE  MEL010.0AT  (CONT.) 

IF  (LISTO.EQ.II)  THEN 

CALL  FILONC!  NYS-1,  FCP,  NFR,  V) 

URITE(6,1365)  (  V(N),  N*1,NFR) 

1365  FORMAT!//'  VECTOR  OF  INTEGRAING  Fc"*eo8! theta)  IS:'/!10F12.5)) 
WRITE!10,*)  'NYS' 

WRITE!10,*)  NYS 

WRITE!10,*)  '!  XCC!I),  1=1, NYS)  S  !  FCPtI),  1*1, NYS)' 
URITE!10,*)  !  XCC!I)*.01,  1=1, NYS) 

WRITE!10,*)  !  FCP!I),  1=1, NYS) 

END  IF 

C1370  PREPARE  FC'  OF  SIZE  NSEC2  !ASSUMING  TRIANGLE  ELEMENTS)  ***** 


DX 

=1./NSEC 

DXH 

=0X*50. 

OT 

»OX/.03 

NSEC2 

=NSEC*NSEC 

DO 

ISEG=1,NSEC2,2 

U10.6 

W10.7 

W10.8 

W10.9 

W10.10 


0398 

X  *(ISEG-1)*OXH*OT 

0399 

XCCCISEG)  >X 

0400 

XCC(1SEG«1)  aX+OT 

0401 

ENO  DO 

0402 

0403 

IF  (INCAH.E0.3)  THEN 

0404 

C1380 

USE  FORMULA  TO  FIND  FC' 

0405 

WRITE(6,1382) 

0406 

1382 

FORMAT(//'  Fc"  OBTAINED  FROM  FORMULA  FOR  NACA  aal.O 

0407 

0408 

CALL  FFCP(  NSEC2,  XCC,  FCP) 

0409 

0410 

DO  N=2,NFR,2 

0411 

V{N-1)»0. 

0412 

V<N)  a.5/(N-1) 

0413 

ENO  DO 

0414 

IF  <  M00<MFR,2).N£.0  )  V(MFfi)aO. 

0415 

0416 

CB  =1. 

0417 

0418 

ELSE 

0419 

C1390 

INCAM  a  1  OR  2 

0420 

C1392 

FIND  CB 

0421 

0422 

CALL  FILONCL  NYS-1,  FCP,  NFR,  V) 

0423 

0424 

CB  =V(2)+V(2) 

0425 

URITE(6,1395)  CB 

0426 

1395 

FORMATS  CB  ='F8.5) 

0427 

C1396 

PREPARE  FCP 

0428 

0429 

CALL  SPLIN1<  NYC.  XC.  YC.  NSEC2.  XCC,  DUMMY.  FCP, 

0430 

* 

SEN01,  1.E-9) 

0431 

0432 

ENO  IF 

0433 

0434 

IF  (IFLAT.EQ.D  THEN 

0435 

ITEM  aHSEC2*.15 

0436 

DO  lal.ITEM 

0437 

FCPCD  aF»IN<  FCP<n,  fCPA) 

0438 

END  DO 

0439 

DO  IaNSEC2-ITEM,NSEC2 

0440 

FCPd)  aMAX(  FCP(I),  FCP2) 

0441 

ENO  00 

0442 

ENO  IF 

0443 

0444 

IF  (INCAM. NE. 3)  THEN 

0445 

DO  Ia1,NSEC2 

0446 

FCP<I)aFCP(I)/C8 

0447 

ENO  00 

0448 

DO  Nal.NFR 

0449 

V(N)  aV(N)/CB 

0450 

ENO  DO 

0451 

0452 

ccc 

IF  ( INCAM. E0.1)  GOTO  ???  ???  ??? 

0453 

0454 

IF  (CBID.LT.5)  THEN 

0455 

0  aCBIO/CB 

0456 

CB  aCB*a 

0457 

WRITE(6,1398)  CB,  0 

0458 

1398 

FORMAT</'  ...  SYMMETRIC  CAMBER  ...  Cb  ='F6.3 

0459 

'  MULTIPLE  FACTOR  a'F6.2) 

0460 

END  IF 

0461 

ENO  IF 

0462 

0463 

IF  'MH.EQ.2)  THEN 

0464 

CCC  ???  TO  BE  CHECKED  ??? 

0465 

0  =-CB/PI 

0466 

DO  Nal.NFR 

0467 

V(N)  aV<N)*0 

0468 

END  DO 

0469 

V(1)  »SIMO(ALPHAM)+V(1) 

0470 

ENO  IF 

0471 

0472 

Cl  400 

THICKNESS  DATA  ***** 

0473 

IF  (INCAM. EQ.1)  THEN 

0474 

DO  Ia1,NSEC2 

0475 

FTP(I)aO. 

0476 

ENO  DO  -8-76- 

0477 

TOC  *0. 
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0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

05U 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 


TOC2PI  =0. 

URITE(6,1410) 

1410  FORMAT(//'  THICKNESS  =  0'//) 

ELSE 

READ  (11,5101)  TITL 
URITE(6,5103)  TITL 
READ  (11,*)  MYT 
IF  (NYT.GT.NYMAX)  THEN 
PRINT  *,  'MYT.GT.MYMAX...',  NYT,  NYMAX 
STOP  'INPUT. 1415' 

END  IF 

READ  (11,*)  (  XT(I),  1*1, NYT) 

READ  (11,*)  (  YT(I),  1*1, NYT) 

IF  (LIST.GT.O)  THEN 
URITE(6,1440) 

1440  FORMAT(/21X'X  Yt'/) 

DO  1*1, NYT 

URITE(6,6222)  XT(I),  YT(I) 

IF  (  MOO(I,S).EO.0  )  URITE(6,6222) 

END  DO 
END  IF 

TOC  *0. 

DO  1*1, NYT 

TOC  *NAX(  YT(I),  TOC) 

END  DO 

TOC  *TK*.01 

CALL  SPLINK  NYT,  XT,  YT,  NSEC2,  XCC,  DUMMY,  FTP,  DUM, 

♦  SEND1,  1.E-9) 

DO  I*1,NSEC2 

FTP(I)*FTP(I)/TOC 
END  DO 

TOC  *TOC*TOC 

C  TOTAL  THICKNESS  IS  TWICE  THE  INPUT  DATA 

URITE(6,1430)TOC 

1430  FORMAT!/'  MAXIMUM  BLADE  THICKNESS  *'F8.5//) 

TOC2PI  *T0C*PI2 

END  IF 

READ  (11,*)  JACK 
IF  ( JACK. NE. 999)  THEN 
PRINT  *,  'CHECK  BLADE  DATA...',  JACK 
STOP  'INPUT. 1500' 

END  IF 
CLOSE(II) 

C2000  CONSTANT 

CALPHA  *COSO(ALPHAM) 

SALPHA  *SINO(ALPHAM) 

SA2PI  =PI2*SALPHA 

C3000  PREPARE  DATA  FILE  MEL010.DAT  (CONT.) 

I‘  (LIST0.E0.11)  THEN 
WRITEdO,*)  'TOC' 

WRITEdO,*)  TOC 
WRITEdO, 3120) 

3120  FORMAT!'  FOLLOWING  ARE  (  (  G(M,K),  K=1,NFR),  N*1,NFR),'/ 

+  '  (  (  H(N,K),  K»1,NFR),  N*1,NFR),  (  B(N),  N*1,NFR),  »'/ 

♦  '  (  T(N),  N*1,NFR),  FOR  AMDAO*AMDA,AMDZ,AMOI ' ) 
WRITE(6,3130) 

3130  FORMAT!// 

♦  '  A  TABLE  OF  G,  H,  B,  t  T  FUNCTIONS  IS  CREATED  IN  "MELOIO 

♦  /) 

END  IF 

RETURN 

C5000  FORMAT 
5101  F0RMAT(A90) 

5103  FORMAT! /1XA90) 

6222  FORMAT(F23.2,F9.3,F11.5) 

END 


PROGRAM  SECTIONS 


Bytes  Attributes 

-B.77- 


REA01105 

READ1106 

READ 1107 
REA01108 


REA01109 


W10.11 

W10.12 

W10.13 

W10.14 

DAT"'/ 


Neme 


0  SCOOE 

S506 

PIC  CON 

REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1  SPOATA 

1488 

PIC  CCM 

REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

2  SLOCAL 

10492 

PIC  CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

3  MIL 

9 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

4  OGl 

8 

PIC  OVR 

REL 

G8L 

SHR 

NOEXE 

RO 

URT 

LONG 

5  DGILR 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

6  DI 

8012 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

7  OIL 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

8  GI 

4872 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

9  GILR 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

10  a 

13840 

PIC  OVR  REL 

GBL 

SNR 

NOEXE 

RD 

URT 

LCWG 

11  ILR 

16 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

12  IR 

12 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

44271 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000 

INPUT 

1« 

VARIABLES 

Address 

Type 

Name 

Attributes 

References 

11-00000000 

R*4 

ALPHAM 

COMM 

171 

200= 

201 

469 

528 

529 

10-00003500 

R*4 

AMDA 

COMM 

167 

246= 

247 

275 

10-00003508 

R*4 

AMOI 

COMM 

167 

246= 

247 

275 

10-00003504 

R*4 

AMOZ 

COMM 

167 

246* 

247 

275 

10-0000350C 

R*4 

CA 

COMM 

167 

211* 

212 

11-00000004 

R*4 

CALPHA 

COMM 

171 

528* 

11-00000008 

R*4 

CB 

COMM 

171 

416* 

424= 

425 

446 

449 

455 

456(2) 

457 

465 

2-00002658 

R*4 

CSIO 

184= 

185 

454 

455 

10-000035EO 

R*4 

CC 

COMM 

167 

211= 

212 

9-00000000 

R*4 

CSA 

COMM 

166 

204= 

211  = 

212 

237* 

238 

240 

263 

264 

275 

10-000035E4 

R*4 

CSI 

COMM 

167 

205* 

211* 

212 

239* 

10-000035E8 

R*4 

CSZ 

COMM 

167 

206* 

211= 

212 

240= 

263 

264 

** 

R*4 

DTHETA 

327* 

329 

2-00002690 

R*4 

DUM 

303A 

357A 

429A 

507A 

4-00000000 

R*4 

OX 

COMM 

161 

393= 

394 

395 

•• 

R»4 

OXH 

394= 

398 

2-0000266C 

R»4 

EPS 

246= 

2-0000269C 

R*4 

FCPA 

365= 

368 

437 

2-000026A0 

R*4 

FCPZ 

366= 

371 

440 

** 

1*4 

I 

224<2)* 

225(2)* 

226(2)= 

227(2)= 

299(2)= 

300(2)= 

308= 

309(3) 

310 

328* 

329(2) 

331* 

332(2) 

334= 

335(2) 

367= 

368(2) 

370* 

371(2) 

388(2)= 

389(2)* 

436= 

437(2) 

439= 

440(2) 

445* 

446(2) 

474* 

475 

489(2)= 

490(2)= 

495= 

496(2) 

497 

502= 

503 

510= 

511(2) 

** 

1*4 

lA 

228(2)= 

2-00002664 

1*4 

IB 

228(2)= 

•* 

1*4 

1C 

228(2)= 

2-00002650 

1*4 

I  FLAT 

183= 

185 

338 

363 

434 

2-0000264C 

1*4 

INCAM 

183= 

185 

276(2) 

277 

285 

351 

403 

444 

473 

12-00000000 

1*4 

IRES 

COMM 

172 

207* 

210= 

212 

2-00002660 

1*4 

IS 

228(2)= 

10-000035F8 

1*4 

ISCL 

COMM 

167 

210* 

212 

** 

1*4 

ISEG 

397= 

398 

399 

400 

*• 

1*4 

ITEM 

364= 

367 

370 

435= 

436 

439 

2-00002668 

1*4 

JACK 

228= 

230 

231 

253= 

255 

256 

315= 

316 

317 

520* 

521 

522 

1*4 

KA 

253(4)= 

2-00002674 

1*4 

KAZ 

247* 

249 

250 

253(2) 

** 

1*4 

KX 

253(4)= 

** 

1*4 

KXZ 

248= 

249 

250 

253(2) 

2-00002654 

1*4 

LIST 

183= 

185 

302 

492 

5-00000000 

1*4 

LISTQ 

COMM 

162 

199* 

201 

241  = 

262 

264 

277 

379 

-B-78 


10-000035FC 

1*4 

NH 

COMM 

*• 

1*4 

H 

10-00003600 

1*4 

HA 

COMM 

10-00003604 

1*4 

NB 

COMM 

10-00003608 

1*4 

NC 

COMM 

5-00000004 

1*4 

MFR 

COMM 

10-0000360C 

1*4 

MS 

COMM 

4-00000004 

1*4 

NSEC 

COMM 

6-00001 F48 

1*4 

NSEC2 

COMM 

2-0000268C 

1*4 

NYC 

•• 

1*4 

NYS 

2-00002694 

1*4 

MYSPI 

2-00002698 

1*4 

NYSP2 

2-00002660 

1*4 

MYT 

** 

R*4 

OT 

7-00000000 

R*4 

PI 

CONN 

11-OOOOOOOC 

R*4 

P12 

CONN 

•• 

R*4 

0 

12-00000004 

R*4 

SA2Pt 

CQMN 

10-000035EC 

R*4 

SALPHA 

CQMN 

2-000026SC 

R*4 

SENDI 

10-000035FO 

R*4 

SEN05 

COMN 

3-00000000 

CHAR 

TDATE 

CONN 

2-00002688 

R*4 

TOATEU 

2-00002SF0 

CHAR 

Tin 

10-00003SF4 

R*4 

TOC 

CONN 

12-00000008 

R*4 

T0C2PI 

CONN 

•• 

R*4 

X 

8-00001300 

R*4 

XSA 

CONN 

8-00001304 

R*4 

XSI 

CONN 

2-00002670 

R*4 

XSZ 

ARRAYS 

Address 

Type 

Name 

Attributes 

8-00000000 

R*4 

AI 

CONN 

2-00000000 

R*4 

ALPHA 1 

10-00003570 

R*4 

BETAI 

COMN 

10-00003580 

R*4 

C81 

COMM 

2-0000004C 

R*4 

OUHMY 

6-00000000 

R*4 

FCP 

COMN 

6-00000FA8 

R*4 

FTP 

COMM 

10-00000000 

1*4 

I  CL 

COMM 

8-00000980 

R*4 

R 

COMM 

2-OOOOOFF4 

R*4 

SIG 

10-00003594 

R*4 

V 

COMM 

2-00001008 

R*4 

XC 

2-00001198 

R*4 

XCC 

2-0OUO2140 

R*4 

XT 

2-00002200 

R*4 

YC 

2-00002460 

R*4 

YT 

533 

167 

183* 

185 

191 

383(2)* 

410= 

411 

412(2} 

167 

216* 

217 

219 

167 

216* 

217 

219 

167 

216* 

217 

219 

162 

183* 

185 

191(2) 

410 

414(2) 

422A 

448 

167 

216* 

217 

219 

161 

183= 

185 

191 

163 

396* 

397 

408A 

474 

507A 

510 

283* 

294* 

295 

296 

321 

357a 

429A 

321= 

322(3)= 

323 

324 

339 

344 

364 

370(2) 

422 

339* 

340 

341 

365 

340* 

342 

344* 

346 

484* 

485 

486 

489 

395* 

398 

400 

164 

1770 

284(2) 

327 

171 

284= 

517 

530 

455* 

456 

457 

465* 

172 

530= 

167 

529* 

530 

184* 

185 

303A 

357A 

167 

211* 

212 

153 

160 

268 

153 

180- 

181* 

182 

482* 

483 

167 

477= 

501* 

503(2)* 

517 

535 

172 

478= 

517* 

398* 

399 

400 

165 

246* 

248 

165 

246* 

248 

246* 

248 

Bytes  Dimensions  References 


2432 

(76.  8) 

165 

76 

(19) 

174 

16 

(4) 

167 

20 

(5) 

167 

4008 

(1002) 

174 

4008 

(1002) 

163 

365 

389 

440(2)= 

4000 

(1000) 

163 

13680 

(19,  9,  5.  4) 

167 

2432 

(76.  8) 

165 

20 

(5) 

174 

60 

(15) 

167 

414= 

469(2)= 

400 

(100) 

174 

429A 

4008 

(1002) 

174 

342* 

400* 

400 

(100) 

174 

400 

(100) 

174 

429A 

400 

(100) 

174 

-B-79- 


193 

197 

463 

448= 

449(2) 

466* 

467(2) 

221 

227 

228 

221 

224 

228 

221 

226 

228 

193 

273 

381A 

383 

466 

221 

225 

228 

193 

321 

393 

396(2) 

429A 

435 

439(2) 

445 

299 

300 

303(2)A 

308 

327 

328 

331 

334 

381 

386 

388 

389 

347 

353A 

357a 

366 

490 

495 

502 

507A 

465 

467 

429A 

507A 

II 

245 

292= 

293 

505(2)* 

511 

513(3)= 

515 

253= 

227= 

224= 

226= 

357A 

429A 

507A 

303A 

309 

353A 

357A 

366 

368(2)= 

371(2)= 

381A 

408A 

422A 

429A 

437(2)= 

446(2)* 

475* 

507A 

511(2)* 

228= 

253* 

225* 

381A 

383 

411  = 

412= 

422A 

424(2) 

449(2)= 

467(2)= 

299= 

303(2)A 

309 

357A 

329* 

332(2)= 

335(2)= 

341  = 

353A 

357A 

388 

399= 

408A 

429A 

507A 

489= 

496 

507A 

300= 

303(2)A 

309 

357A 

490* 

496 

503 

507A 

PARAMETER  CONSTANTS 


Type 

Neme 

1*4 

KAMX 

1*4 

KXMX 

1*4 

NAMX 

1*4 

NBMX 

1*4 

NCMX 

1*4 

HFRMX 

1*4 

NSECMX 

1*4 

NSMX 

1*4 

NYMAX 

1*4 

NYSNX 

1*4 

NYSMX2 

LABELS 

References 

155# 

155# 

155# 

155# 

155# 

155# 

155# 

155# 

155# 

157# 

157# 


Address 

Label 

Refers 

1-00000221 

120' 

185 

*• 

130 

197 

1-000002A1 

135' 

201 

0-00000278 

140 

197 

1-000002EO 

150' 

212 

1-0000031E 

160' 

217 

0-00000634 

170 

197 

0-0000068E 

210 

208 

1-00000337 

260' 

268 

0-OOOOOA20 

1110 

285 

0-00000A54 

1210 

285 

1-0000037B 

1220' 

306 

0-00000C10 

1310 

285 

1-00000399 

1340' 

373 

1-Q00003EA 

1365' 

383 

1-00000420 

1382' 

405 

1-0000044E 

1395' 

425 

1-00000459 

1398' 

457 

1-0000049A 

1410' 

479 

1-000004C0 

1430' 

515 

1-000004AF 

1440' 

493 

1-000004E3 

3120' 

536 

1-00000579 

3130' 

540 

1-000005BO 

5101' 

180 

1-000005CO 

5103' 

182 

1-000005C6 

6222' 

309 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

Refere 

FFCP 

353 

FILONC 

381 

FORSCLOSE 

234 

FORSOPEN 

215 

R*4 

MTHSCOS 

332 

R*4 

MTHSCOSO 

528 

R*4 

NTNSSINO 

469 

SPLINI 

303 

♦  •  -  •  • 

KEY 

TO  REFERENCE  FLAGS 

1 

S 

-  Value  Modified 

1 

# 

-  Defining  Reference 

1 

A 

-  Actual  Argument,  possibly  modified  I 

0 

-  Data 

Initialization 

1 

(n) 


Ninber  of  occurrences  on  line 


oooooooooooo 


24-Hay-1988  13:42:46  VAX  FORTRAN  V4.0-2 
1-Apr-1987  10:56:48  DUAO:  [CHIANG. 3037. DSN. MELUOOP. FOR;  1 


SUBROUTINE  LOOP 


(3037-HELLOR-LOOP)  (L)  LOOP  THRU  VARIOUS  PARAMETERS  TO  FIND  SOLUTIONS 
REFERENCED  BY  MAIN  (MELLOR);  REFERENCES  GNK  (TWICE),  RESULT  (TWICE), 
SIMUL1  (TWICE),  t  SPLINI  (4  TIMES),  &  FORSOPEN,  MTHtAMOO, 
HTHSCOSO  (TWICE),  t  MTHSSIND  (TWICE) 

INPUT  AI,  AMDA,  AMOl,  AMD2,  BETA1,  C,  CA,  CALPHA,  C8,  CB1,  CBEFF, 

CC,  CSA,  CSI,  CS2,  ICL,  LISTO,  MH,  NB,  NC,  NFR,  PI,  PI2,  R, 
SA2PI,  SALPHA,  TOC  t  V 
COOED  BY  W.  CHIANG 

100CT86,  S.  HSU  TRANSLATED  FROM  (3037-CASCAOCHP98451-LOOP)  WHICH  WAS 
SEPARATED  FROM  MAIN  OF  (3037-CASCA0CHP984S]),  26AUG85,  AND 
REVISED  NOV85 

REVISED  27FEB87,  CHIANG;  TOUCHED  01APR87 
CHARACTER  TDATE*9 


PARAMETER  (  NALHX»13,  NAMXalV,  NBMX>4,  NCMXsV,  NFRMX^IS,  NSMX^S) 


COMHON/M  IL  / 
COMMON/  DGILR/ 
COMMON/  DG  L  / 
COMMON/  0  IL  / 
COMMON/  GILR/ 
COMMON/  G  LR/ 

COMMON/  IL  / 


COMMON/  ILR/ 
COMMON/  LR/ 


TOATE 

LISTO,  NFR 
C(NFRMX) 

PI 

CSA 

G(NFRMX,NFRMX),  H(NFRMX.NFRHX) , 

B(NFRMX),  T(NFRMX),  AMDAD,  CS 

I CL ( NAMX , NCMX , NSMX , NSMX ) , 

BETAKNBMX),  CBKNSMX),  V(NFRMX). 

AMDA,  AMOZ,  AMDI,  CA,  CC,  CSI,  CSZ,  SALPHA, 
SENDS,  TOC,  ISCL,  MH,  NA,  NB,  NC,  NS 

ALPHAM,  CALPHA,  C8,  PI2 
A(NFRMX),  C80 


DIMENSION  GHV(  NFRMX*(NFRMX'»1)  ), 

ALFAM(NALMX),  BI(NALMX),  BCTTT(NFRMX),  BT(NFRMX),  CL(NALMX), 
*  CLKNALMX),  OTH(NALHX),  OUMMY(NALMX),  TT(NFRMX),  VE(NFRMX), 

•»  VEC(NfRMK) 


NFR1 

•NFR+I 

NFRSQ 

«NFR*MFR 

NFRSQP 

«NFRSa»1 

0 

•-1./PI 

DO 

N>1,NFR 

VE(N) 

»V(N)*0 

END  DO 

IF  (LISTO.GT.O)  THEN 

00 

M*1,NFR 

VE(N)  sVE(N)*CALPHA 
END  DO 
END  IF 


IF  (MH.E0.2}  GOTO  1310 


GOTO  (  110,  120,  130)  LISTO 


110  WRITE(6,112)  C(1),  C(2) 

112  FORMAT(// 

'  LAMDA  C/S  GOO  G02  G11  G20  G22  HOO  HOI  H10' , 

♦  '  BO  B1  TO  TV/'  (DEG)'/ 

♦  '  0  1.000  0-1.000  0-1.000  000' 

♦  2F6.3'  0  O') 

GOTO  310 

120  UR1TE(6,122) 

122  FORMAT(//'  LAMDA  CB  C/S  AOA  AOC  AOT  A1A  A1C  ', 

♦  '  AIT  AA  AC  AT'/'  (OEG)'/> 

GOTO  310 


130  WR1TE(6,132) 

132  FORMAT(//'  LAMDA  CB  C/S  CL  (CL)  AO  AI  ' , 

♦  '  A2  A3  A4'/'  (DEG)'/) 


C  200  LOOP  TO  PRODUCE  MELLOR'S  TABLE-HIPTIONAL  USING  ALPHAM  AS  A  PARAMETER 


C  300  LOOP  THRU  STAGER  ANGLES  **••* 

310  D07SOAMDAO«AMOA,AMOZ,AMDI 

KA  >(NT(  (AMDAD- AMDA )/AMO(+. 000001  )  *  1 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 


C  400  LOOP  THRU  CB  ***** 

IF  (LISTO.Ea.2  .OR.  LIST0.E0.3)  THEN 
CBO  >0. 

ELSE 

CBO  >1 . 

END  IF 

DO  750CB»CB0,1.,1. 

CBTOC  *-CB*TOC 
DO  H«1,NFR 

VEC(N)  >VE(N)*CB 

ENO  DO 

IF  (LISTO.ME.O)  VEC(1)*VEC(1)*SALPHA 

C  500  LOOP  THRU  SOLIDITIES  ***** 

DO  750  CS-CSA.CSZ,CSI 

CALL  GNK(KA) 

IF  (  MOO(LISTO.IO)  .EQ.1  )  GOTO  750 
KN  sO 
DO  N^I.NFR 

BCTTT(M)  =B<M)*CBTOC-T{M)*TOC 
DO  K>1,NFR 

GHV(KN*K)  >G(N.K)-H(N.K)*CB 

ENO  DO 
KN>KN«NFR 
ENO  DO 


CCC 

IF  (LISTO.EQ.O)  THEN 

CCC 

DO  720ALPHAM>  15.- 

AMOAD,  TO.-AMDAO,  5. 

CCC 

SALPHA  >SINO(ALPHAM) 

CCC 

SA2PI  -SALPHA*PI2 

CCC 

CALPHA  <COSO(ALPHAM) 

CCC 

DO  N*1,NFR 

CCC 

GHV(N«NFRSQ) 

»VEC(M)*CALPHA  ♦  BCT(N) 

CCC 

ENO  DO 

CCC 

GHV(NFRSOP) 

■GHVLNFRSQPT-^SALPHA 

CCC 

ELSE 

DO  N*1,NFR 

GHV(N*NFRSa)  >VEC(N)*BCTTT(N) 
ENO  DO 


CCC  ENO  IF 

C  600  CALC.  FOURIER  COEFS.  *••*••**** 

CALL  SIHULK  3,  NFR,  GHV,  A.  l.E-9,  DETER) 

IF  (0ETER.lt, .1)  PRINT  *,  'DETER  <  .1  ???' 

C  700  CALC.  VORTICITY  GAMMA  »  LIFT  COEF.  CL  ********** 

CALL  RESULT(  OUM,  CL,  DUM,  OUM) 

CCC  IF  (LISTO.EQ.O)  THEN 

CCC720  CONTINUE 

CCC  ENO  IF 

750  CONTINUE 

C  750  CONTINUE 

C  750  CONTINUE 

IF  (LISTO.EQ.11)  THEN 
WRITEdO,*)  999 
END  IF 

GO  TO  3900 

C1200  LOOP  TO  PRODUCE  DATA  TO  BE  COMPARED  U/HERRIG'G  ••******•• 

C1300  LOOP  THRU  SOLIDITIES  ***** 

1310  DO  1850  CS>CSA,CSZ,CSI 

IS  =IMT(  (CS-CSA)/CSI  ♦  1.1  ) 

UR1TE(6,1320) 

1320  FORMAT(/'  C/S  LAMDA  CB  ALPHA<M)  CL<M)  OTHETA  BETA(H)', 
♦  '  BETA(I)  ALPHA(I)  CL(1>'/'  (DEG)'/) 

WRITE(6,6330)  CS 

C1400  LOOP  THRU  LAMDA  ***** 

DO  1850  AMDAO«AMDA,AMDZ,AMD' 
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IF  (  AMOAO-AMOA  .GT.  0.)  WRITE(6,6A10}  AMOAD 

CALL  GNK(  INT<  (ANDAO-AMOA)/AMOI'». 000001  }  >  1  ) 


0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 


DO  Nx1,NFR 

BT<M)  *-B(N)*TOC 

TT(M)  =-T(M)*TOC 

END  00 

Cl 500  LOOP  THRU  CB 

00  1850  IC>1.NC 

IF  (IC.GT.1)  URITE(6,6510)  CBKIC) 

CB  »CB1(IC)*CC 
KN  >0 
DO  N-1,NFR 

BCTTT(N)  »BT(N)*CB+TT(N) 

VEC(N)  >VE(N)*CB 

DO  K>1,NFR 

GHVCKN-t-K)  *G(N,i()*H(N.K)*CB 

END  DO 

KN  =KN+NFR 

END  DO 

C1600  LOOP  THRU  ALPHAM 

ALFAM(I)  -20.-AM>A0 

KIA  >0 
lA  *1 

1610  ALPHAM  -ALFAM(IA) 

ALPHA  =ALPHAM*CA 

IF  {ABS(ALPHA).GT.90.}  THEN 
PRINT  *,  'ERROR...  ABS(ALPHA).GT.90...',  ALPHA 
STOP  'LOOP. 1610' 

END  IF 

SALPHA  <S I NO (ALPHA) 

CALPHA  =COSO(ALPHA) 

DO  N>1.NFR 

GHV<N'»NFRSa)  sVEC(N)*CALPHA«BCTTT(N) 

END  DO 

GHVINFRSOP)  *GHV(NFRSOP)*SALPHA 

C1700  CALC.  FOURIER  COEFS.  **••*•*•*• 

CALL  SIHULK  3,  NFR,  GHV,  A,  1.E*9.  DETER) 

IF  (DETER.lt. .1)  PRINT  •,  'DETER  <  .1  ???' 

C1800  CALC.  VORTICITY  GAMMA  &  LIFT  COEF.  CL  ***••••*** 

CALL  RESULT(  B1,  CL,  CL1,  OTH) 

IF  (IA.GT.1)  THEN 
IF  (B1(IA).GT.70.)  GOTO  1840 
IF  (IA.NE.3)  GOTO  1830 
IF  (B1(3).GT.30.)  GOTO  1830 
ALFAM(3)  =ALFAM(3)  -  INK  B1(3)  )  ♦  32. 

GOTO  1610 
END  IF 

IF  (B1(1).LT.30.  .AND.  B1(1 ).GT.24. )  GOTO  1830 
KIA  sKIAfl 
IF  (KIA.LE.9)  THEN 

ALFAM(I)  »ALFAM(1)  -  INT(  B1(1)  )  ♦  28. 

GOTO  1610 
END  IF 

CCC  ??  ERROR  BELOU 

IF  (B1(1).GT.24.)  ALFAM(1)xALFAM(1)-1 

IF  (B1(1).LT.30.)  ALFAM(1)«ALFAM(1)*1 

GOTO  1610 

1830  ALFAMdA-^l)  >ALFAM(IA)+5. 

lA  •lA-'-l 
GOTO  1610 


1840 

♦ 

CALL 

SPLINK 

I A,  B1,  ALFAM,  NB, 
OUM,  SEN05,  1.E-6) 

BETA1 . 

ALFAM,  DUMMY 

♦ 

CALL 

SPLINK 

lA,  B1,  CL,  NB, 

DUM,  SEN05,  1.E-6) 

BETA1 , 

CL,  DUMMY 

CALL 

SPLINK 

lA,  B1,  CLl,  NB. 

BETA1 , 

CLl,  DUMMY 

-B-83- 


1850  CO 
C1850  CONT 
C1850  CONT  INI 
C18S0  CONTINUE 


DUM,  SENDS,  1.E-6) 

CALL  SPLINK  lA,  81,  OTH,  NB,  8ETA1,  DTH,  DUNMY, 

DUM,  SENDS.  1.E-6) 

KIB  =0 

DO  1850  IB>1,N8 

ALPHA1  sBETA1(IB)-AM0A0 
IF  (  AMOO(  ALPHAI,  2.)  .NE.  0.)  GOTO  1850 
IA*ALPHA1/2+3 

IF  (IA.GT.19  .Oft.  IA.LT.1)  GOTO  1850 
IF  (KIB.NE.O)  URITE(6,68S0) 

KIB 

WRITE (6. 6860)  ALFAM(IB),  CL(tB),  0TH(IB}, 

ALFAM(IB)-»AMDAO.  BETAI(IB).  ALPHAI,  CLl(IB) 

IF  (  ICL(IA.IC,IS,IB).LT.32760  )  THEN 
PRINT  •,  'ERROR...  ICLdA,  IC.  IS,  IB).LT.32760. . . ' , 
ICL(IA,IC,IS,IB),  lA.  1C,  IS,  18 
STOP  'LOOP. 6870' 

END  IF 

ICLdA, IC, IS, IB)  =CL1dB}*10000 
CONTINUE 
CONTINUE 
CONTINUE 


IF  dSCL.GT.O)  THEN 
OPEN<  8,  FILE='MEL08',  STATUS*'NEW' ) 

UR1TE<8,1910}  TOATE,  NB,  NS,  NC,  NA 
1910  FORMAT! '  (3037-MELLOR-MELO8)  CALCULATED  CL  TO  BE  COMPARED  U/  ', 
+  'HERRIG,  ET  AL,  1951 ' ,T71 ,A9/'  NB,  NS,  NC,  NA  :'/4I5/ 

♦  '  <  <  (  <  ICLdA, IC, IS, IB),  IA=1,NA).  IC=1,NC).  IS*1,MS),  ', 

♦  '1B=1,MB).  999  :') 

MRITE<8,*)  (  <  <  (  ICLdA, IC. IS, IB).  lAxl.NA).  IC=1,NC). 

+  IS^I.NS),  IB»1.NB),  999 

END  IF 

3900  RETURN 

CSOOO  FORMAT 
6330  FORMAT(1XF4.2) 

6410  FORMAT</F11.0) 

6510  FORMAT(F16.2) 

6860  FORMAT{4<F8.3)2(F9.2)F8.3) 

END 


PROGRAM  SECTIONS 


0  SCOOE 

1  SPOATA 

2  SLOCAL 

3  NIL 

4  DGILR 

5  DGL 

6  OIL 

7  GILR 

8  GLR 

9  IL 

10  ILR 

11  LR 


Total  Space  Allocated 


ENTRY  POINTS 


Address  Type  Name 
0-00000000  LOOP 


VARIABLES 

Address  Type  Name 

*•  R*4  ALPHA 

2-0000066C  R*4  ALPHAI 
10-00000000  R*4  ALPHAM 


Bytes 

Attributes 

2808 

PIC  CON 

REL 

LCL 

SHR  EXE 

RD 

NOWRT 

LONG 

821 

PIC  CON 

REL 

LCL 

SHR  NOEXE 

RD 

NOWRT 

LONG 

2000 

PIC  CON 

REL 

LCL 

NOSHR  NOEXE 

RD 

WRT 

LONG 

9 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

8 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

60 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

4 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

4 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

1928 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

13840 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

16 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

WRT 

LONG 

64 

PIC  OVR 

REL 

GBL 

SHR  NOEXE 

RD 

'.ryT 

LONG 

21562 

References 


Attributes  References 


186*  187 
245*  246 
31  185* 


9-00003500 

R*4 

AHOA 

COMM 

8-00000780 

R*4 

AMD  AO 

COMM 

9-00003508 

R*4 

AMDI 

COMM 

9-00003504 

R*4 

AHOZ 

COMM 

9-00003SOC 

R*4 

CA 

COMM 

10-00000004 

R*4 

CALPHA 

COMM 

10-00000008 

R*4 

C8 

COMM 

11-0000003C 

R*4 

CBO 

COMM 

** 

R*4 

CBTOC 

9-000035EO 

R*4 

CC 

COMM 

8-00000784 

R*4 

CS 

COMM 

7-00000000 

R*4 

CSA 

COMM 

9-000035E4 

R*4 

CSI 

COMM 

9-000035E8 

R*4 

CSZ 

COMM 

2-00000644 

R*4 

OETER 

2-00000648 

R*4 

OUM 

2-00000664 

1*4 

lA 

** 

1*4 

IB 

** 

1*4 

1C 

2-00000654 

1*4 

IS 

9- 000035 F8 

t»4 

ISCL 

COMM 

** 

1*4 

K 

2-00000634 

1*4 

KA 

«r* 

1*4 

KIA 

it* 

1*4 

KN 

4-00000000 

1*4 

LISTO 

COMM 

9-000035FC 

1*4 

MH 

COMM 

1*4 

N 

9-00003600 

1*4 

NA 

COMM 

9-00003604 

1*4 

N8 

COMM 

9-00003608 

1*4 

NC 

COMM 

4-00000004 

1*4 

NFR 

COMM 

*« 

1*4 

NFRI 

2-00000624 

1*4 

NFRSO 

2-00000628 

1*4 

NFRSOP 

9-0000360C 

1*4 

NS 

COMM 

6-00000000 

R*4 

PI 

COMM 

10-0000000C 

R*4 

P12 

COMM 

*• 

R*4 

0 

9-000035EC 

R*4 

SALPHA 

COMM 

9-000035FO 

R*4 

SEN05 

COMM 

3-00000000 

CHAR 

TOATE 

COMM 

9-000035F4 

R*4 

TOC 

COMM 

27 

76 

77 

157 

25 

76= 

77 

157= 

251 

27 

76 

77 

157 

27 

76 

157 

27 

186 

31 

48 

193= 

195 

31 

85= 

86 

88 

176 

32 

81= 

83= 

85 

86= 

100 

27 

170 

25 

93= 

149= 

150 

24 

93 

149 

150 

27 

93 

149 

150 

27 

93 

149 

124A 

126 

201A 

203 

130(3)A 

231A 

234A 

237A 

184= 

185 

209 

210 

234A 

237A 

240A 

247= 

271(2)= 

244= 

245 

251(6) 

253 

168= 

169(2) 

170 

253 

150= 

253 

254(2) 

258 

27 

264 

101  = 

102(3) 

175= 

176(3) 

77= 

95A 

183= 

217(2)= 

218 

98= 

102 

104(2)= 

171  = 

21 

46 

54 

80(2) 

27 

52 

43= 

44(2) 

47= 

48(2) 

102(2) 

117* 

118(3) 

162= 

174(2) 

176(2) 

194= 

195(3) 

27 

266 

271 

27 

231 A 

234A 

237A 

27 

168 

266 

271 

21 

39 

40(2) 

43 

104 

117 

124  A 

162 

201A 

39= 

40= 

41 

118 

195 

41  = 

197(2) 

27 

266 

271 

23 

42 

31 

42= 

44 

27 

90 

192= 

197 

27 

231A 

234A 

237a 

16 

20 

266 

27 

86 

100 

163 

158 

160 

158(2) 

160 

182 

245 

160 

102 

170= 

173 

174 

154 

240A 

211 

227(2) 

228(2)= 

231A 

248(2) 

253 

254(2) 

258 

254(2) 

258(2) 

271(2)= 

254(2) 

258 

271(2)= 

271(2)= 

176 

• 

178(2)= 

90 

97 

140 

87= 

88(2) 

99= 

100(3) 

163(2) 

164(2) 

172= 

173(3) 

240A 

244 

266 

271 

47 

87 

99 

101 

172 

175 

178 

194 

240A 

164 


ARRAYS 


Address 

Type 

Name 

Attributes 

11-00000000 

R*4 

A 

COMM 

2-000003CO 

R*4 

aLfam 

8-00000708 

R*4 

B 

COMM 

2-000003F4 

R*4 

B1 

2-00000428 

R*4 

BCTTT 

9-00003570 

R*4 

BETAI 

COMM 

2-00000464 

R*4 

BT 

5-00000000 

R*4 

C 

COMM 

9-00003580 

R*4 

CB1 

COMM 

Bytes 

Dimensions 

References 

60 

(15) 

32 

52 

(13) 

34 

223(2)= 

60 

(15) 

25 

52 

(13) 

34 

216(2) 

234a 

60 

(15) 

34 

16 

(4) 

27 

245 

60 

(15) 

34 

60 

(15) 

22 

20 

(5) 

27 

124A 

201A 

182= 

185 

213(2)= 

219(2) 

224(2)= 

227(2)= 

231 (2)A 

251(2) 

100 

163 

207A 

210 

212 

213 

219 

223 

224 

231A 

237A 

240A 

100= 

118 

173= 

195 

231A 

234A 

237A 

240A 

251 

163= 

173 

56(2) 

169 

170 

2-000004AO 

R»4 

CL 

52 

(13) 

34 

130A 

207A 

234(2 )A 

251 

2-000004D4 

R*4 

CL1 

52 

(13) 

34 

207A 

237(2)A 

251 

258 

2-00000508 

R*4 

OTH 

52 

(13) 

34 

207A 

240(2)A 

251 

2-0000053C 

R*4 

DUMMY 

52 

(13) 

34 

231A 

234A 

237A 

24  OA 

8-00000000 

R»4 

G 

COMM 

900 

(15.  15) 

25 

102 

176 

2-00000000 

R*4 

GHV 

960 

(240) 

34 

102= 

118= 

124A 

176= 

195= 

197(2)= 

201A 

8-00000384 

R*4 

H 

COMM 

900 

(15,  15) 

25 

102 

176 

9-00000000 

1*4 

I  CL 

COMM 

13680 

(19,  9,  5,  4) 

27 

253 

254 

258= 

271 

8-00000744 

R*4 

T 

COMM 

60 

(15) 

25 

100 

164 

2-00000570 

R*4 

TT 

60 

(15) 

34 

164= 

173 

9-00003594 

R*4 

V 

COMM 

60 

(15) 

27 

44 

2 -000005 AC 

R*4 

VE 

60 

(15) 

34 

44= 

48(2)= 

88 

174 

2-000005Ea 

R*4 

VEC 

60 

(15) 

34 

88= 

90(2)= 

118 

174= 

195 


PARAMETER  CONSTANTS 

Type  Name  References 


1*4 

NALHX 

18« 

1*4 

NAHX 

18lif 

1*4 

NBMX 

18« 

1*4 

NCMX 

18# 

1*4 

NFRMX 

18# 

1*4 

NSMX 

18# 

34(6) 

27 

27(2) 

zr 

22  25(6)  27  32  34(7) 

27(2) 


LABELS 


Address  Label  References 


0-0000009E 

110 

54 

56# 

1-0000007B 

112' 

56 

57# 

O-OOOOOODO 

120 

54 

64# 

1-00000120 

122' 

64 

65# 

0-000000E8 

130 

54 

69# 

1-0000018E 

132' 

69 

70# 

O-OOOOOOFE 

310 

62 

67 

76# 

0-0000035B 

750 

76 

85 

93 

97 

136# 

0-00000380 

1310 

52 

149# 

1-OOOOOlEF 

1320' 

151 

152# 

0-00000660 

1610 

185# 

214 

220 

225 

229 

0-000009C0 

1830 

211 

212 

216 

227# 

0-00000794 

1840 

210 

231# 

0-00000967 

1850 

149 

157 

168 

244 

246 

248 

259# 

1-00000254 

1910' 

266 

267# 

0-OOOOOAF7 

3900 

144 

275# 

1-00000312 

6330' 

154 

278# 

1-00000318 

6410' 

158 

279# 

1-00000310 

6510' 

169 

280# 

1-00000321 

6860' 

251 

281# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

References 

FORSOPEN 

265 

GNK 

95 

760 

R*4 

HTHSAMOO 

246 

R*4 

MTHSCOSO 

193 

R*4 

MTHSSINO 

192 

RESULT 

130 

207 

SIMULI 

124 

201 

SPLINI 

231 

234 

-B-86- 


24-May-1988  13:49:37  VAX  FORTRAN  V4.0-2 
7- Jan-1987  11:01:13  DUAO: CCHIANG. 3037. DSN .MEL] RESULT . FOR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 


SUBROUTINE  RESULTC  BETA1,  CL,  CL1,  OTH) 

C  (3037-MELLOR-RESULT}  (R)  CALC.  RESULTS  FROM  CASCADE  THEORY,  SUCH  AS 
C  VORTICITY(GAMMA),  LIFT  COEF.TMELLOR, 1959) 

C  REFERENCED  BY  LOOP 

C  REFERENCES  MTHSATAND  (THRICE),  MTHSCOSD  (TWICE),  HTHSSIND  (TWICE),  & 

C  MTHSTAND 

C  INPUT  A,  IRES,  &  PI2,  AND  OUTPUT  CL,  IF  IRES^I 

C  INPUT  A,  ALPHAM,  AMDAO,  CS,  IRES,  &  PI2,  AND  OUTPUT  BETA1,  CL,  CL1,  & 

C  OTH,  IF  1RES<2 

C  INPUT  A,  AMDAO,  B,  CALPHA,  CB,  CS,  G,  H,  IRES,  LISTO,  PI2,  SA2PI,  T, 

C  T0C2PI,  AND  OUTPUT  NONE,  IF  IRES>3 

C  COOED  BY  W.  CHIANG,  14JULB3 

C  100CT86,  S.  HSU  TRANSLATED  FROM  (3037-CASCAOCHP9845] -RESULT)  WHICH, 

C  REVISED  07NOV85,  WAS  ADAPTED  FROM  (3725-CASCAD [HP9845] -RESULT), 

C  05AUG85 

C  REVISED  17NOV86,  CHIANG;  TOUCHED  010EC86 

PARAMETER  (  NFRMX^IS) 

COMMON/DGILR/ 

COMMON/  GILR/ 

COMMON/  G  LR/ 

+ 

COMMON/  ILR/ 

COMMON/  I  R/ 

COMMON/  LR/ 

C  100  CALC.  CL  ****’ 

CL  =(  A(1)-»^A(2)  )*PI2 

GOTO  (  3900,  2100,  3100),  IRES  • 

PRINT  *,  'IRES  SHOULD  BE  1,  2,  OR  3,  NOT',  IRES 
STOP  'RESULT. 110' 

C2000  (3037-MELLOR-RESULT-CL1)  CALC.  BETA1  &  CL1  ********* 

C  COOED  BY  W.  CHIANG,  12AUG85;  TRANSLATED  BY  S.  HSU,  10OCT86 
C  REVISED  160CT86,  CHIANG 
2100  BETAM  >ALPHA»KAM0A0 
SINBM«SINO(BETAM) 

TEN«CL*CS*.25+SINBM 
IF  (TEM.EO.O.)  THEN 
BETAI  =0. 

CLI  »0, 

OTH  >-ATAN0(  TAHO(BETAH)*2  ) 

IF  (  COSO(BETAM).LT.O  )  OTHaOTH-180. 

GOTO  3900 
END  IF 

IF  (BETAM. EO. 90.)  THEN 
BETAI  >BETAM 

DTH  =0. 

ELSE 

COSBH  sCOSO(BETAM} 

TANB1  >TEH/COSBM 

BETAI  -ATAND(TANBI) 

DTH  =BETA1  -  ATAMD(  (SINBM*SINBM)/COSBM-TAMB1  ) 

IF  (COSBM.lt. 0.)  THEN 
BETAI  =BETAU180. 

DTH  =OTH-180. 

END  IF 
END  IF 

TEM  >SIN0(BETA1)/TEM 

CL1*TEM*TEH*CL 

CCC  WR1TE(6,7200)  ALPHAM,  CL,  DTH,  BETAM,  BETAI,  BETAI-AMDAD,  CLI 
GOTO  3900 

C3000  (3037-MELLOR-RESULT-SYMCAM)  CALC.  LIFT  COEF.  FOR  A  SYM.  CAMBER, 

C  USING  A  3-TERM  METHOD,  SEE  MELLOR  (1959) 

C  COOED  BY  W.  CHIANG,  03AUG83 
3100  0  »-1./G(2,2) 

G33''G(3,3) 

P7*G(3,1)/G33 

C  PO  =G(1,1)  -  G(1,3)*P7  -  (  H(1,1)-H(1,3)*P7  )*CB 

P1=1-G(1,1)-(H(1,2)-(H(1,3)*CB-G(1,3))«H(3,1)/G33)*CB 
P3»B(3)*CB*T(3) 

P4*P3»CB*H(3,1)/G33  -B-87- 

P5*(H(2,3)*P7-H(2,1))*CB*Q 


LISTO,  NFR 
CSA 

G(NFRMX,NFRMX),  H(NFRMX,NFRNX), 

B(NFRMX),  T(NFRMX),  AMDAO,  CS 

ALPHAM,  CALPHA,  CB,  PI2 
IRES,  SA2PI,  TOC2PI 

A(NFRMX),  CBO 


0i7iJ 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 


09=0*P1 

A0A*1/(P5*P1+G(1,1)-G(1,3)*P7-(H(1.1)-H{1.3)*P7)«CB) 

A0C»-A0A*CALPHA*P5 

T9=B(2)*CB*T(2)+P4 

A0T*<P3*P7- B( 1 )*CB- T{ 1 ) - T9*P5 )*A0A 

A1A*O9*A0A 

A1C»«9*A0C+Q*CALPHA 

A1T=09*AOT+0*T9 

AC>A0C+A1C 

AAsAOAt-AIA 

AT»A0T*A1T 

GOTO  (  3900,  3200,  3300)  LISTO 
PRIMT  •,  'ERROR...  LISTO',  LISTO 
STOP  'RESULT. 3190' 

3200  IF  (CS.EO.CSA)  THEN 
IF  (CB.EO.CBO)  THEN 

WRITE(6,8200)  AMOAD,  CB,  CS,  AOA,  AOC,  AOT,  A1A,  A1C,  AIT,  AA, 

♦  AC,  AT 
ELSE 

WRITE(6,8210)  CB,  CS,  AOA,  AOC,  AOT,  A1A,  A1C,  AIT,  AA,  AC,  AT 
END  IF 
ELSE  ' 

URITE<6,8220)  CS,  AOA,  AOC,  AOT,  A1A,  A1C,  AIT,  AA,  AC,  AT 

END  IF 
GOTO  3900 

3300  IF  (CS.EO.CSA)  THEN 

IF  (CB.EO.CBO)  THEN 

URITE(6,8300)  AMOAD,  CB,  CS,  CL,  AC*CB  ♦  AA*SA2PI  ♦  AT*T0C2PI, 
^  (  A(N),  N>1,HIN(NFR,11)) 

ELSE 

URITE(6,8310)  CB,  CS,  CL,  AC*CB  ♦  AA*SA2PI  ♦  AT*T0C2P1, 

♦  (  A(N),  N=1,MIN(NFR,11)) 

END  IF 

ELSE 

URITE(6,8320)  CS,  CL,  AC*CB  ♦  AA*SA2PI  ♦  AT*T0C2PI, 

♦  (  A(N),  N«1,MIN(NFR,11)) 

END  IF 

3900  RETURN 

C7200  FORHAT(2(F9.0,2(F9.3))F9.0) 

8200  FORMAT(/F4.0,F7.2,F6.1,1X9(F7.3)) 

8210  FORMAT(/  F11 .2,F6.1 , 1X9(F7.3)) 

8220  FORHAT(  F17. 1 , 1X9(F7.3)) 

8300  FORMAT(/F4.0,F6.2,F7.1,1X11(F9.3)) 

8310  FORHAT(/  F10.2, F7.1 , 1X11(F9.3)) 

8320  FORMAT(  F17. 1, 1X11(F9.3)) 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

0  SCOOE 

1481 

1  SPOATA 

171 

2  SLOCAL 

40 

3  DGILR 

8 

4  GILR 

4 

5  GLR 

1928 

6  ILR 

16 

7  IR 

12 

8  LR 

64 

Total  Space  Allocated 

3724 

Attributes 


PIC 

CON 

REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

KOSHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  RESULT  1« 


VARIABLES 
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Address 

Type 

Name 

Attributes 

References 

*« 

R*4 

AOA 

79» 

80 

82 

83 

87 

96 

99 

102 

*« 

R*4 

AOC 

80= 

84 

86 

96 

99 

102 

*« 

R*4 

AOT 

82> 

85 

88 

96 

99 

102 

*• 

R*4 

AlA 

83= 

87 

96 

99 

102 

*« 

R*4 

Ale 

84= 

86 

96 

99 

102 

*« 

R*4 

AIT 

85= 

88 

96 

99 

102 

2-00000000 

R*4 

AA 

87= 

96 

99 

102 

108 

111 

115 

** 

R*4 

AC 

86= 

96 

99 

102 

108 

111 

115 

6-00000000 

R*4 

ALPHAM 

COMM 

25 

38 

5-00000780 

R*4 

AMOAO 

COMM 

23 

38 

96 

108 

2-00000004 

R*4 

AT 

88= 

96 

99 

102 

108 

111 

115 

AP-0C000004a  R*4 

BETA1 

1 

42= 

49= 

54= 

55 

57(2)= 

62 

R*4 

BETAM 

38= 

39 

44 

45 

48 

49 

52 

6-0OCJOOO4 

R»4 

CALPHA 

COMM 

25 

80 

84 

6-00000008 

R*4 

CB 

COMM 

25 

74(2) 

75 

76 

77 

79 

81 

82 

95 

96 

99 

107 

108(2) 

111(2) 

115 

8-0000003C 

R*4 

CBO 

COMM 

27 

95 

107 

AP- 00000008a  R*4 

CL 

1 

30= 

40 

63  • 

108 

111 

115 

AP-OOOOOOOCa  R*4 

CL1 

1 

43= 

63= 

*• 

R*4 

COSBM 

52* 

53 

55 

56 

5-00000784 

R*4 

CS 

COMM 

23 

40 

94 

96 

99 

102 

106 

108 

111 

115 

4-00000000 

R*4 

eSA 

COMM 

22 

94 

106 

AP-00000010a  R*4 

OTH 

1 

44= 

45(2)= 

50= 

55= 

58(2)= 

R»4 

G33 

71= 

72 

74 

76 

7-00000000 

1*4 

IRES 

*COMM 

26 

31 

32 

3-00000000 

1*4 

LtSTO 

COMM 

21 

90 

91 

** 

1*4 

N 

108(2)= 

111(2)= 

115(2)= 

3-00000004 

1*4 

NFR 

COMM 

21 

108 

111 

115 

•• 

R*4 

P1 

74* 

78 

79 

•• 

R*4 

P3 

75= 

76 

82 

*• 

R*4 

P4 

76* 

81 

•• 

R*4 

P5 

77= 

79 

80 

82 

*• 

R*4 

P7 

72* 

77 

79(2) 

82 

6-OOOOOOOC 

R*4 

PI2 

COMM 

25 

30 

*« 

R*4 

Q 

70= 

77 

78 

84 

85 

•• 

R*4 

09 

78= 

83 

84 

85 

7-00000004 

R*4 

SA2PI 

COMM 

26 

108 

111 

115 

** 

R*4 

SINBM 

39= 

40 

55(2) 

** 

R*4 

T9 

81  = 

82 

85 

** 

R*4 

TANB1 

53= 

54 

55 

** 

R*4 

TEH 

40= 

41 

53 

62(2)= 

63(2) 

7-00000008 

R*4 

T0C2P1 

COMM 

26 

108 

111 

115 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

8-00000000 

R*4 

A 

COMM 

60 

<15) 

27 

30(2) 

108 

111 

115 

5-00000708 

R*4 

B 

COMM 

60 

(15) 

23 

75 

81 

82 

5-00000000 

R*4 

G 

COMM 

900 

(15.  15) 

23 

70 

71 

72 

74(2) 

79(2) 

5-00000384 

R*4 

H 

COMM 

900 

(15.  15) 

23 

74(3) 

76 

77(2) 

79(2) 

5-00000744 

R*4 

T  . 

COMM 

60 

(15) 

23 

75 

81 

82 

PARAMETER  CONSTANTS 

Type  Name 

References 

1*4  NFRMX 

19# 

23(6) 

27 

LABELS 


Address 

Label 

References 

0-0000006C 

2100 

31 

38# 

0-0000012C 

3100 

31 

70# 
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0-0000025C 

3200 

90 

94# 

0-000003FC 

3300 

90 

106# 

0-000005C8 

3900 

31 

46 

1-00000041 

8200' 

96 

122# 

1-00000056 

8210' 

99 

123# 

1-00000068 

8220' 

102 

124# 

1-00000076 

8300' 

108 

125# 

1-0000008B 

M10' 

111 

126# 

1-0000009D 

8320' 

115 

127# 

65 


90 


104 


119# 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Naate 

References 

R*4 

MTHSATAND 

44 

54 

R*4 

MTHSCOSD 

45 

52 

R*4 

HTHSSINO 

39 

62 

R*4 

MTHSTANO 

44 

55 


KEY  TO  REFERENCE  FLAGS 
a  -  Value  Modified 

#  ■  Defining  Reference 

A  -  Actual  Argiment,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Nunber  of  occurrences  on  line 


I  •• 

I 
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B.4  PROGRAM  DSN3 


Provided  in  this  section  is  a  listing  of  the  computer  program  DSN3 
and  the  following  subroutines: 

DSN2 
FI LONG 
INP 
INP2 
MAP32 
MELLOR2 
MELLOR3 
PFM3 
SIMULl 
and  SPLINl . 


•  • 
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1S-Jun-1988  15:04:26  VAX  FORTRAN  V4.0-2  P 

15-Jun-1988  15:04:22  OUAO: CCH1ANG.3037.0SN31DSN3M. FOR;3 


0001  PROGRAM  0SN3 

0002  C  (3037*DSN3ai)  (H)  Blade  design  for  30  flow 
0003  C  V.  1.0 

0004  C  Includes  SUBs  (0)  0SN2,  (F)  FILONC,  (1)  INP.  (J)  INP2,  {L>  MAP32, 

0005  C  <N>  MELL0R2.  .0)  HELLC.;3.  (P)  PfM3.  (  )  slHULl,  AND 

0006  C  (S)  SPLINT 

0007  C  References  0SN2,  INP,  INP2.  MAP32.  AND  PFM3 

0008  C  Coded  23MAR87;  TOUCHED  21JAN88;  INCLUDED  DSNCOM  15JUNS8 

0009 


0010 

COM 

(3037-DSN3-DSNC0M)  COMMON 

STATEMENTS...  09APR87;  REVISED  01JUN88 

(K)11 

COM 

PARAMETER  (  MXN>200,  NAM0AM>90,  NFRMX*15,  NSECRH>c15, 

0012 

COM 

* 

NSTANX*11,  NSTLNX«9.  NYSMX^IOI) 

0013 

COMC 

MXN:/S/;  NAHDAM:/NO/; 

NFRMX:/NO/;  NSECRM:/IJ/; 

0014 

COMC 

NSTAMX:/0UN0P/;  NSTLMX:INP2;  NYSMX:/NO/ 

0015 

COM 

0016 

COM 

EQUIVALENCE  (  A,  VEC),  (  CL1,  CL1D),  (  F(1),  VY(1)) 

0017 

COM 

0018 

COM 

COMMON/OI  /  CONFB, 

CONFSO,  EPSS,  EPSSO,  PI2N 

0019 

COM 

CQMMON/DIJ  P/  NSTA, 

USTAR 

0020 

COM 

CCMMON/DI  L  /  OMEGA 

0021 

COM 

COMMON/DI  P/  EPSA, 

lOBUG,  HMAX 

0022 

COM 

COMMON/D  J  /  R(NSTAMX),  XM(NSTAMX) 

0023 

COM 

CCMMON/D  JL  /  CT1,  R1 

0024 

COM 

COMMON/D  JLP/  R1N,  R2N 

0025 

COM 

COMMON/D  J  P/  SIG 

0026 

COM 

COMMON/D  L  /  BETAO, 

CLICLM,  UXO 

0027 

COM 

COMMON/D  LP/  BETA1, 

BETA2,  TANB1,  TANB2 

0028 

COM 

COMMON/D  P/  AO,  A1, 

BO,  CB,  CHI,  CLM,  F,  PHI,  SIGH,  STAG,  TANBO 

0029 

COM 

COMMON/  IJ  /  DEN, 

INTERP,  RSTAR 

0030' 

COM 

COMMON/  I  P/  CONFC, 

CONFSA 

0031 

COM 

COMMON/  JL  /  CM1,  CN2,  CT2,  R2 

0032 

COM 

COMMON/  J  P/  B(NSTAMX),  BK(NSTAMX),  RHO(NSTAMX),  RN(NSTAMX), 

0033 

COM 

♦ 

UM1N,  UM2H 

0034 

COM 

0035 

COM 

COMMON/NO/  GJ(NAMOAM,NFRMX,NFRMX),  HJ(NAMOAM,NFRHX,NFRMX), 

0036 

COM 

♦ 

BJ(NAMDAM,NFRMX),  TJ(NAMDAM,NFRMX), 

0037 

COM 

♦ 

AMDAJ(NAMDAM),  FCP<NYSMX),  V(HFRNX), 

0038 

COM 

♦ 

XAXtS(NSTAMX),  XCC(NYSMX), 

0039 

COM 

♦ 

AMOA,  AMDI,  AMDAMN,  AMDAMX, 

0040 

COM 

♦ 

NAMDA,  NFR,  NFRSQ,  NFRSOP,  NYS,  NYSM, 

0041 

COM 

♦ 

PI,  PI2,  TOC 

0042 

0043 

CHARACTER  T0ATE*9,  VS*3 

0044 

0045 

DATA  VS/M.O'/ 

0046 

0047 

OPEM  (  5,  FILE*'0SN3I'. 

STATUS*'OLO',  READONLY) 

0048 

OPEN  (  6,  FILEs'0SN3O', 

STATUS* 'NEW') 

0049 

C 

OPEN  (  11,  FILE-'HEL010« 

,  STATUS='OLO',  READONLY)  ...  in  sub  MELL0R2 

0050 

C 

OPEN  (  21,  FILE='0SN3Zl' 

,  STATUS«'OLD',  READONLY)  ...  in  sub  INP2 

0051 

0052  CALL  DATE  (TDATE) 

0053 

0054  URITE(6,101)  VS,  TDATE 

0055  101  FORMATf'IOUTPUT  FROM  ''0SM3". . .VERSION  'A3,T61  ,A9//) 

0056 


0057 

0058 

CALL 

INP(NSECR) 

0059 

0060 

DO 

K«1,NSECR 

0061 

0062 

CALL 

INP2(K) 

0063 

0064 

CALL 

HAP32 

0065 

0066 

CALL 

DSN2 

0067 

0068 

CALL 

PFM3 

0069 

0070 

END  DO 

0071 

WRITE  (6 

,*)  'Done. 

0072 

-  STOP  'Done...' 

0073 

END 
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PROGRAM  SECTIONS 


Naaie 

Bytes 

Attributes 

0  SCOOE 

166 

PIC  CON  REL 

LCL 

SHR 

EXE 

RO 

NOWRT 

LONG 

1  SPDATA 

60 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

▼ 

2  SLOCAL 

136 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated 

362 

k 


I  «• 


k 


h 


ENTRY  POINTS 

Address  Type  Nasie 
0-00000000  DSN3 


References 

1« 


VARIABLES 

Address  Type  Name 


Attributes  References 


2-00000010 

2-OOOOOOOC 

2-00000000 

2-00000009 


1*4  K 
1*4'  NSECR 
CHAR  TDATE 
CHAR  VS 


59= 

57A 

43 

43 


LABELS 

Address  Label 
1-00000013  101' 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name 


0SN2 

FORSOATE  r  OS 

forsopen"  " 

INP 

INP2 


65 

52 

47 

57 

61 


MAP32 

PFM3 


63 

67 


r  ♦ . 

KEY  TO  REFERENCE  FLAGS 

s 

-  Value  Modified 

# 

-  Defining  Reference 

A 

-  Actual  Argument,  possibly  modified 

D 

-  Data  Initialization 

<n) 

-  Ninber  of  occurrences  on  line 

61A 

59 

52A 

45D 


54 

54 


References 

54  55# 


References 


48 


COMMAND  QUALIFIERS 

F/LIS/CHE/CRO  DSN3M 

/CHECK=(BOUNOS, OVERFLOW, UNDERFLOW) 

/DEBUG=(NOSYMBOLS,TRACEBACK) 

/STANDARD=(NOSYNTAX, NOSOURCE  FORM) 

/SHOW=( NOPREPROCESSOR . NO I NCLUDE , MAP , NOD  I CT I ON ARY , S I NGLE ) 

/WARN I NGS>( GENERAL , NQOECLARAT IONS) 

/C0NTINUATI0NS=19  /CROSS  REFERENCE  /NOO  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /I4  /NOMACHINE  CODE  /OPTIMIZE 
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15-jLn-1988  15:43:29  VAX  «ORTRAM  V4.0-2  P 

1-Jun-1988  14:48:11  DUAO: tCHIAVd. 3037. 0SN31DSN2. FOR; 1 1 

0001  SUBROUTINE  DSN2 

0002  C  (3037-DSN3-DSN2}  (0)  DESIGN  IN  20  FLOW 

0003  C  Refernced  by  MAIN  (DSN3) 

0004  C  References  HELL0R3  t  SPLIN1  &  MTHSATAND  (thrice),  NTHSCOSO,  t  MTHSTANO 
3C3S  C  ic  be  coeipiled  by  VAX- 11  FOT.TRAN,  «.4.Q 
0006  C  Coded  03APR87;  REVISED  01JUN88 
0007 

0008  PARAMETER  (  NSTAMXsIl) 

0009 

0010  CHARACTER  TEHS*80 

0011 

0012  COMNON/OI  /  CONFB,  CONFSO,  EPSS,  EPSSO,  P12N 

0013  COMMON/DIJ  P/  NSTA,  USTAR 

0014  COMMON/01  L  /  OMEGA 

0015  COMMON/DI  P/  EPSA,  IDBUG,  HMAX 

0016  COMMON/D  J  /  R(NSTAMX),  XM(NSTAMX) 

0017  COMMON/D  JL  /  CT1,  R1 

0018  COHMON/D  JLP/  R1N,  R2N 

0019  COMMON/D  J  P/  SIG 

0020  COMMON/0  L  /  BETAO,  CL1CLM,  UXO 

0021  COMMON/D  LP/  BETAI,  BETA2,  TANBI ,  TANB2 

0022  COMMON/O  P/  AO,  A1,  BO,  CB,  CHI,  CLM,  F,  PHI,  SIGH,  STAG,  TANBO 

0023 

0024  DIMENSION  OUMMY(I),  RR(NSTAMX) 

0025 

0026  C1000  DETERMINE  SOLIDITY  BY  ITERATION 

0027  SIGIN 

0028 

0029  URITE(6,1010)  SIG 

0030  1010  FORMAT(//'  LOOP  TO  DETERMINE  SOLIDITY,  IN  SUB  DSN2:'// 


0031 

♦  ' 

DESIGN 

STAGGER'/ 

0032 

♦  ' 

M  CL(m) 

CL(1) 

Cb 

ALPHA1 

ANGLE  ! 

0033 

♦  'OITY'// 

0034 

♦  • 

0'F60.5) 

0035 

0036 

DATA 

B1MN,  B1MX, 

CL1MN, 

CL1MX, 

SIGMN,  SIGMX 

0037 

♦ 

/  30.,  70., 

0., 

1.2. 

.5,  1.5/ 

0038 

0039  IF  (BETAI. LT.B1MN  .OR.  BETAI .GT.BIMX)  THEN 

0040  TEMS  >'UARNING(0SN2.1020):  BETAI  out  or  range...' 

0041  PRINT  *,  TEMS,  BETAI 

0042  WRITE(6,*)  TEMS,  BETAI 

0043  END  IF 

0044 

0045  M  >0 

0046  FC0SB2  »(TANB1-TANB2)  *  COSO(BETAO)  •  2. 

0047  1100  M  *M*1 

0048  CLM  =FC0SB2/SIG 

0049  CL1  =CL1CLM*CLM 

0050  IF  (SIG.LT.SIGMN  .OR.  SIG.GT.SIGMX  .OR.  CLI.LT.CLIMN  .OR. 

0051  ♦  CL1.GT.CL1MX)  THEN 

0052  TEMS  >'UARNING(0SN2.1110):  SIG  or  CLI  out  or  range...’ 

0053  PRINT  *,  TEMS,  SIG,  CLI,  M 

0054  URITE(6,*)  TEMS,  SIG,  CLI,  M 

0055  END  I F 

0056 

0057  Cl 200 

0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 

0075  Cl 300  STAGGER  ANGLE 

0076  STAG  »BETA1-ALFA10  _B-94- 

0077 


CAMBER  (Cb)  &  DESIGN  ALPHA  1  (FROM  MULTIPLE  REGRESSION  ANALYSIS) 
CB  *(  (  (  -2.74752*CL1+20.91537  )»CL1 -45.84094  )»CL1 

+36.29869  )*CL1  -  5,23047 

♦  (  (  (  -1.66604*SIG-CL1*4.42872*8.26201  )*SIG 

♦  (  -10.87314*CL1*26. 19466  )*CL1- 14. 15108  )*S1G 

♦  (  (  -9.83274*CL1+41. 23668  )*CL1 -47.03403  )*CL1 

♦13.59117  )*SI0  + 

(  (  (  BETA1*.38594E-6-SIG».50739E-4-CL1*.35308E-4-.20018E-4  )* 
BETAI  ♦  (  .0013187*SIG+. 0040173  )*SIG  ♦ 

(  -.0016033*CLU. 0059786  )*CL1  -  ,00080978  )»BETA1  ♦ 

(  (  -.0014369*SIG-. 11946  )*SI0-. 010265  )*SIG  ♦ 

(  (  -.093633*CLH. 33569  )*CL1-. 39504  )*C11+. 015917  )*BETA1 
ALFA10  =(  (  (  -1.78681*S1G*7.68063  )*SIC- 12.95580  )*SIG 
♦12.87888  )*SIG-2. 22656  ♦ 

(  (  (  CB*.01716-SIG*.06408+. 01298  )*CB  ♦ 

(  SIG*.02078+.30280  )*SIG-. 30496  )*CB  ♦ 

(  (  SIG*. 51975-2. 50213  )*SlG+6. 54778  )*SIG-2. 78086  )*CB 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 


C1400  SOLIDITY  ON  X-Y  PLANE 
DO  I>1,NSTA 

RR(I)  *1./R(I) 

END  DO 

CALL  SPLINK  NSTA,  XM,  RR.  0,  DUMMY.  DUMMY,  DUMMY,  SIGMA,  1. 

♦  1.E-6) 

SIGMA  =SIGMA/(  COSD(STAC)  *  PI2N  } 

IF  (  ABS<SIG-SIGMA)  .GE.  EPSS  )  THEN 
IF  (M.GT.HMAX)  THEN 

PRINT  *,  'ITERATION  R  EXCEEDED  MMAX 
STOP  '0SN2.1411' 

END  IF 

IF  (IDBUG.GT.O) 

-f  URITE(6,6420)  M,  CLH,  CLI,  CB,  ALFAID,  STAG,  SIGMA 

SIG  <(SIGMA-SIG)*CaNFSO^SIG 
GOTO  1100 
ENO  IF 

URITE(6,6420)  M,  CLM,  CLI,  CB,  ALFA10,  STAG,  SIGMA 

IF  (CB.GT.4.  .OR.  CB.LT.-1.  .OR.  ALFA1D.GT.36.  .OR.  ALFA1D.LT.0. ) 

♦  THEM 

PRINT  *,  'CHECK  CB  OR  ALFAIO...',  CB,  ALFA10 
STOP  'DSN2.1425' 

ENO  IF 

IF  (  ABS(SIGIN-SIGMA)  .LT.  EPSSO)  incN 
SIG  >SIGtN 
ELSE 

PRIHT  1455,  SIGIN,  SIGMA 

1455  FORMAT('  SOLIDITY  USED  IN  ‘‘MELLOR"  TO  ESTABLISH  “MELOIO.DAT"'/ 

♦  '  HAS  TO  BE  CORRECTED  FR0M'F8.5'  TO'F8.5) 

STOP  '0SN2.1456' 

ENO  IF 

C2000  CONSTANTS  ***** 

PHI  =WX0AISTAR 

SIGH  «SIG*.5 

CHI  «(R2N*R2N*R1N*R1N)/PHI 

C  PS I  *(R2M*R2N-R1N*R1N*PHI*OWYN)*2. 

C3000  TURNING  ANGLE  WITHOUT  30  EFFECTS  ***** 

M  >0 

BETAO  <ATANO<  (TANB1*TANS2}*.S  ) 

URITE(6,3010)  TANB1-TANB2,  BETAO 

3010  FORHAT(//'  M  AO  Al  CL(m)  F  Beta  0 

♦  '  Beta  VII 

♦  '  0'F40.5,F10.5) 

C3100  DETERMINE  BO  (OR  BETA1  OR  TURNING  ANGLE)  BY  ITERATION 

3110  CALL  HELL0R3<  BETAO-STAG,  CB,  STAG,  NSTA,  VNX,  VNY,  2, 

♦  AO,  Al,  CLH) 

M  »M*1 

F  =CLM  *  SIGH  /  COSO(BETAO) 

BO  =ATANO{TAMB1-F*.5) 

IF  (  ABS(BO-BETAO)  .GT.  EPSA  )  THEN 
IF  (M.GT.MMAX)  THEN 

PRINT  *,  'ITERATION  #  EXCEEDED  ',  MMAX 
STOP  '0SN2.2111' 

ENO  IF 

IF  (IDBUG.GT.O)  URITE(6,6420)  M,  AO,  Al,  CLM,  F,  BO 
BETAO  s(BO-BETAO)*CONFB*BETAO 

GOTO  3110 
ENO  IF 

TANBO  3TAND(B0) 

TANB2  >TANB1-F 

BETA2  xATAN0(TANB2) 

URITE(6,6420)  M,  AO,  Al,  CLH,  F,  BO,  BETA2 

6420  FORHAT(I5,6F10.S) 


RETURN 

ENO 


-B-95- 


PROGRAM  SECTIONS 


Natae 

Bytes 

Attributes 

0  SCOOE 

1932 

PIC  CON 

REL 

LCL 

SHR 

EXE 

RO 

NOURT 

LONG 

1  SPOATA 

558 

PIC  CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

312 

PIC  CON 

REL 

LCL 

NOSHR 

NOEXE 

RO 

URT 

LONG 

i  01 

20 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

4  DIJP 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

5  OIL 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

6  DIP 

12 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

7  DJ 

88 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

8  OJL 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

9  DJLP 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

10  OJP 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

11  OL 

12 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

12  DIP 

16 

PIC  OVR 

REL 

GBL 

SNR 

NOEXE 

RD 

URT 

LONG 

13  DP 

44 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

Total  Space  Allocated 

3026 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000 

0SN2 

1« 

VARIABLES 

Address 

Type 

Name 

Attributes 

References 

13-00000000 

R»4 

AO 

COMM 

22 

131A 

143 

151 

13-00000004 

R»4 

A1 

COMM 

22 

131A 

143 

151 

*• 

R*4 

ALFA1D 

69= 

76 

92 

98 

99(2) 

101 

13-00000008 

R*4 

BO 

COMM 

22 

136= 

138 

143 

144 

148 

151 

2-00000084 

R*4 

B1HN 

360 

39 

2-00000088 

R*4 

S1MX 

360 

39 

11-00000000 

R*4 

BETAO 

COMM 

20 

46 

123* 

124 

131 

135 

138 

144(3)* 

12-00000000 

R*4 

BETA1 

COMM 

21 

39(2) 

41 

42 

58(4) 

76 

12-00000004 

R*4 

BETA2 

COMM 

21 

150* 

151 

13-OOOOOOOC 

R*4 

CB 

COMM 

22 

58* 

69(4) 

92 

98 

99(2) 

101 

131A 

13-00000010 

R*4 

CHI 

COMM 

22 

118* 

** 

R*4 

CLI 

49* 

50(2) 

53 

54 

58(16) 

92 

98 

11-00000004 

R*4 

CL1CLH 

COMM 

20 

49 

2-0000008C 

R*4 

CL  INN 

360 

50 

2-00000090 

R*4 

CLIMX 

360 

50 

13-00000014 

R*4 

CLH 

COMM 

22 

48= 

49 

92 

98 

131A 

135 

143 

151 

3-00000000 

R*4 

CONFB 

COMM 

12 

144 

3-00000004 

R*4 

CONFSO 

COMM 

12 

94 

8-00000000 

R*4 

CT1 

COMM 

17 

6-00000000 

R*4 

EPSA 

COMM 

15 

138 

3-00000008 

R*4 

EPSS 

COMM 

12 

87 

3-OOOOOOOC 

R*4 

EPSSO 

COMM 

12 

105 

13-00000018 

R*4 

F 

COMM 

22 

135* 

136 

143 

149 

151 

*• 

R*4 

FC0S82 

46* 

48 

** 

1*4 

I 

79* 

80(2) 

6-00000004 

1*4 

IDBUG 

COMM 

15 

92 

143 

•• 

1*4 

H 

45* 

47(2)- 

53 

54 

88 

92 

98 

122* 

134(2)* 

139 

143 

151 

6-00000008 

1*4 

MMAX 

COMM 

15 

88 

89 

139 

140 

4-00000000 

1*4 

NSTA 

COMM 

13 

79 

83A 

131A 

5-00000000 

R*4 

OMEGA 

COMM 

14 

13-0000001C 

R*4 

PHI 

COMM 

22 

115* 

118 

3-00000010 

R*4 

PI2N 

COMM 

12 

86 

8-00000004 

R*4 

R1 

COMM 

17 

9-00000000 

R*4 

R1N 

COMM 

18 

118(2) 

9-00000004 

R*4 

R2N 

COMM 

18 

118(2) 

10-00000000 

R*4 

SIG 

COMM 

19 

27 

29 

48 

50(2) 

53 

54 

58(10) 

69(10) 

87 

94(3)« 

106* 

116 

13-00000020 

R*4 

SIGH 

COMM 

22 

116* 

135 

2-00000080 

R*4 

SIGIN 

27= 

105 

106 

108 

2-0000009C 

R*4 

SIGMA 

a3A 

86(2)= 

87 

92 

94 

98 

2-00000094 

R*4 

SIGMN 

360 

50 

2-00000098 

R*4 

SIGMX 

360 

50 

13-00000024 

R»4 

STAG 

COMM 

22 

76= 

86 

92 

98 

131(2)A 

13-00000028 

R»4 

TANBO 

COMM 

22 

148= 

12-00000008 

R*4 

TANB1 

COMM 

21 

46 

123 

124 

136 

149 

12-OOOOOOOC 

R*4 

TANB2 

COMM 

21 

46 

123 

124 

149= 

150 

2-00000030 

CHAR 

TEMS 

10 

40= 

41 

42 

52= 

53 

4-00000004 

R*4 

USTAR 

COMM 

13 

115 

2-OOOOOOAO 

R*4 

VNX 

131A 

2-OOOOOOA4 

R*4 

VNY 

131A 

11-00000008 

R*4 

UXO 

COMM 

20 

115 

105 


108 


54 


ARRAYS 


Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

2-00000000 

R*4 

DUMMY 

4 

(1) 

24 

83(3)A 

7-00000000 

R*4 

R 

COMM 

44 

(11) 

16 

80 

2-00000004 

R*4 

RR 

44 

(11) 

24 

80= 

7-0000002C 

R*4 

XM 

COMM 

44 

(11) 

16 

83A 

PARAMETER  CONSTANTS 
Type  Name 
1*4  NSTAMX 


References 

S*  16(2) 


83A 


24 


LABELS 

Address  Label 


References 


1-0000005E 

1010' 

29 

30# 

0-00000008 

1100 

47# 

95 

1-00000119 

1455' 

108 

109# 

1-00000177 

3010' 

124 

125# 

0-00000508 

3110 

131# 

145 

1-000001CO 

6420' 

92 

98 

143 


151 


153# 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

References 

MELL0R3 

131 

R*4 

MTHSATANO 

123 

136 

150 

R*4 

MTHSCOSO 

46 

86 

135 

R*4 

MTHSTAND 

148 

SPLIN1 

83 

- - - 

KEY  TO  REFERENCE  FLAGS  I 

«  -  Value  Modified  ( 

#  -  Defining  Reference  I 

A  -  Actual  Argunent,  possibly  modified  | 

D  ■  Data  Initialization 

(n)  '  Number  of  occurrences  on  line  | 

- - - 


23-Msy-1988  13:42:16  VAX  FORTRAN  V4.0-2 

30-Har-1987  15:21:48  DUAO: [CHIANG. 3037. DSN] FILONC.FOR;/ 

0001  SUBROUTINE  FILONC(N2,F,NK,SUH) 

0002 

0003  C  (3037-MELLOR-FICONC)  INTEGRATE  USING  FILON'S  FORMULA  TO  FIND  FOURIER 

0004  C  (COSINE)  COEFS. 

0005  C  REFERENCED  BY  INPUT;  REFERENCES  MTHSCOSO  (4  TIMES)  &  MTHSSIND  (TWICE) 

0006  C  INPUT  N2,  NK,  &  F 

0007  C  OUTPUT  SUM(J)  *  INT<  F(X)  *  COS((J-1)*X]  DX  >,  FOR  J  =  1  TO  NX 

0008  C  F  IS  SUPPOSED  TO  BE  CORRESOPNDING  TO  X(1)>0  TO  X(N2«1)»PI  WHILE 

0009  C  ELEMENTS  OF  X  ARE  OF  EQUAL  INCREMENT  OF  H'xPI/N2 

0010  C  N2  SHOULD  BE  AN  EVEN  NUMBER 
0011  C  COOED  BY  W.  CHIANG,  28JUL83 

0012  C  100CT86,  S.  HSU  TRANSLATED  FROM  (3037-CASCA0 CHP9845) -FILONC)  WHICH  WAS 
0013  C  COPIED  FROM  (3725-CASCAO-FILONC).  06AUG85.  WHICH  WAS  ADAPTED 

0014  C  FROM  (3725-FRRFIT) 

0015  C  REVISED  30FEB87,  CHIANG 

0016 

0017  DIMENSION  F(N2+1),  SUH(NK) 

0018 

0019  DATA  PI /3. 14159265359/ 

0020 

0021  C  100 

0022  IF  (  M00(N2,2).GT.0  )  THEN 

0023  PRINT  *,  'N2  should  be  even...',  N2 

0024  STOP  'FILONC.101' 

0025  END  IF 

0026 

0027  C  200 
0028  H=PI/N2 

0029  N2M-N2-1 

0030  F1H*F(1)*.5 

0031  FN2>F(N2) 

0032  SFN2PH3F(N2+1)*.5 

0033  C2NM  =0. 

0034  C2N>F1H-SFN2PH 

0035  DO  1=2, N2, 2 

0036  C2NM  »F(I)*C2NM 

0037  C2N  •F(I+1)+C2N 

0038  END  DO 

0039  SUM(1)  «(C2N«C2NM4'C2NM)*(H4'H)/3. 

0040  DO  J=2,NK 

0041  SFN2PH>-SFN2PH 

0042  TH=H*(J-1) 

0043  RTH«1./TH 

0044  RTHS02  =RTH*RTH*2. 

0045  CO=COS(TH) 

0046  C2NM  =0. 

0047  C2N=F1H'»SFN2PH 

0048  DO  I=2,N2M,2 

0049  C2NM  =COS(  (I-1)*TH  )  •  F(I)  ♦  C2NM 

0050  C2N  =COS(I*TH)  *  F(I+1)  +  C2N 

0051  ENO  DO 

0052  C2NM=COS(N2M*TH)*FN2*C2NM 

0053  SUM(J)  =(  (  CO  *  CO  ♦  1.  -  SIN(TH*TH)  ‘  RTH  )  •  RTHS02  •  C2N  + 

0054  +  (  SIN(TH)*RTH  -  CO  )  *  (  RTHS02+RTHSQ2  )  *  C2NM  )  •  H 

0055  ENO  DO 

0056 

0057  RETURN 

0058  END 


PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

561 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

1  SPOATA 

30 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

2  SLOCAL 

144 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RO 

WRT 

LONG 

Total  Space  Allocated 

735 

ENTRY  POINTS 


Address  Type  Name 


References 


0-00000000 


FILONC 


VARIABLES 


Address  Type  Name  Attributes  References 


** 

R*4 

C2N 

34= 

37(2)= 

39 

47= 

•• 

R»4 

C2NM 

33= 

36(2)= 

39(2) 

46= 

2-00000028 

R*4 

CO 

45= 

53(3) 

2-OOOOOOOC 

R*4 

FIH 

30= 

34 

47 

2-00000010 

R*4 

FN2 

31  = 

52 

2-00000004 

R*4 

H 

28= 

39(2) 

42 

53 

** 

I«4 

I 

35= 

36 

37 

48= 

2-00000018 

1*4 

J 

40= 

42 

S3 

AP-00000004a 

1*4 

N2 

1 

17 

22 

23 

35 

2-00000008 

1*4 

N2M 

29= 

48 

52 

AP-oooooooca 

1*4 

NK 

1 

17 

40 

2-00000000 

R*4 

PI 

190 

28 

2-00000020 

R*4 

RTH 

43= 

44(2) 

53(2) 

2-00000024 

R*4 

RTHSa2 

44= 

53(3) 

2-00000014 

R*4 

SFN2PH 

32= 

34 

41(2)= 

47 

•* 

R*4 

TH 

42= 

43 

45 

49 

ARRAYS 

Address  Type  Name  Attributes  Bytes  Dimensions  References 

AP-oooooooaa  r*4  f  **  (•)  i 

36 

AP- 0000001 oa  R*4  SUM  **  {•)  1 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 
Type  Name  References 

R*4  MTHSCOS  45  49  50  52 

R*4  MTHSSIN  53(2) 

+ - - - - - - - - - ...  — 


KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 


16-Jun-1988  15:04:15  VAX  FORTRAN  V4.0-2 

16-Jun-1988  15:04:06  OUAO: [CHIANG.3037.DSN31 INP.FOR;4 


P 


0001  SUBROUTINE  INP(NSECR) 

0002  C  (3037-DSN3-INP)  (I)  INPUT  DATA 

0003  C  Refernced  by  MAIN  (DSN3);  references  none. 

0004  C  Output  NSECR 

0005  C  To  be  compiled  by  VAX-11  FORTRAN,  v.4.0 

0006  C  Coded  09APR87;  REVISED  20MAr87;  SLIGHTLY  REVISED  160CT87;  TOUCHED  16JUN88 
0007 

0008  C 

0009  C  REA01-TITLE  FOR  THIS  RUN 

0010  C 

0011  C  REA02-DATA  FOR  THE  SYSTEM 

0012  C  DEN  FLUID  DENSITY;  ENTER  A  NUMBER,  IN  PROPER  UNIT,  HERE  IF  IT  IS 

0013  C  CONSTANT  OTHERWISE  ENTER  0  AND  ENTER  THE  DATA  IN  SUB  ••INP2'> 

0014  C  RPM  ROTATIONAL  SPEED,  IN  rpm 

0015  C  RSTAR  REFERENCE  RADIUS,  IN  USER'S  UNIT 

0016  C  CONVR  CONVERSION  FACTOR  TO  BE  MULTIPLY  TO  RSTAR  SUCH  THAT  RSTAR  IS  IN 

0017  C  METERS  OR  FEET 

0018  C 

0019  C  REA03-C0NVERGENCE  CRITERIA 

0020  C  CONFB  CONVERGENCE  FACTOR  FOR  ADJUSTING  BETAO,  e.g.,  .5 

0021  C  CONFC  CONVERGENCE  FACTOR  FOR  ADJUSTING  CB,  e.g.,  1. 

0022  C  CONFSACONVERGENCE  FACTOR  FOR  ADJUSTING  STAGGER  ANGLE,  STAG,  e.g.,  0. 

0023  C  CONFSOCONVERGENCE  FACTOR  FOR  ADJUSTING  SOLIDITY,  SIG,  e.g.,  1. 

0024  C  EPSA  CONVERGENCE  CRITERIA  FOR  BOTH  del  EQ.  PHI  AND  del  BETAl,  e.g.,  .001 

0025  C  EPSS  CONVERGENCE  CRITERIA  FOR  SOLIDITY  ITERATION,  e.g.,  .001 

0026  C  EPSSO  ACCEPTABLE  CRITERIA  FOR  INPUT  SOLIDITY,  e.g.,  .01 

0027  C  MMAX  MAXIMUM  ITERATION  NUMBER  FOR  A  LOOP  (del  EQ.  PHI  S  del  BETAl)  IN 

0028  C  SUB  <'PFM3>' 

0029  C  lOBUG  >  0  TO  HAVE  EXTRA  OUTPUT  FOR  DEBUGGING  PURPOSE; 

0030  C  3  0  FOR  NORMAL  OUTPUT 

0031  C 

0032  C  REA04-SOME  NUMBERS  FOR  ROTOR  &  ITS  BLADES 

0033  C  NBLAOE#  OF  B  AOES 

0034  C  NSECR  41  OF  CROSS-SECTIONS  ALONG  THE  RADIUS  DIRECTION  (USE  NSECR=1  AT 

0035  C  THIS  MOMENT  BECAUSE  SOLIDITY  VARIES  FROM  SECTION  TO  SECTION) 

0036  C  NSTA  N  OF  STATIONS  ALONG  A  CHORD,  INCLUDING  LEADING  t  TRAILING  EDGES 

0037  C  INTERP*  0  TO  READ  THE  SECTION  DATA  OlHECTLY  FKOH  IHfVr; 

0038  C  <>  0  TO  OBTAIN  THE  SECTION  DATA  THROUGH  INTERPOLATION  BASED  ON 

0039  C  DATA  READ  FROM  UNIT  21  (IN  SUB  INP2) 

0040  C 

0041  C  READ2XX _  IN  SUB  ■'INP2" 

0042  C 

0043  C  READ 11 XX...  IN  SUB  "MELLOR2" 

0044  C 

0045 

0046  PARAMETER  (  NSECRM=15,  NSTAMX=11) 

0047 

0048  COMMON/DI  /  CONFB,  CONFSO,  EPSS,  EPSSO,  PI2N 

0049  COMMON/DI J  P/  NSTA,  USTAR 

0050  COMMON/OI  L  /  OMEGA 

0051  COMMON/OI  P/  EPSA,  lOBUG,  MMAX 

0052  COMMON/  IJ  /  DEN,  INTERP,  RSTAR 

0053  COMMON/  I  P/  CONFC,  CONFSA 

0054 

0055  DATA  PI/3.14159265359/ 

0056 

0057  C  100  READ  DATA  &  ECHO 

0058  READ  (5,*)  READI 

0059  READ  (5,*)  DEN,  RPM,  RSTAR,  CONVR  REA02 

0060  URITE(6,130)  RPM,  RSTAR,  CONVR 

0061  130  FORMAT!'  ROTATIONAL  SPEED  (rpm)  >'T60,F10.5/ 

0062  +  '  REFERENCE  RADIUS  (  in  user"s  unit)  ='T60,F10.5/ 

0063  ♦  '  CONVERSION  FACTOR  TO  BE  MULTIPLY  TO  "RSTAR"  SUCH  THAT  THE'/ 

0064  ♦  '  RADIUS  IS  IN  feet  OR  meters  ='T60,F10.5) 

0065 

0066  IF  (OEN.GT.O.)  THEN 

0067  WRITE(6,*)  'FLUID  DENSITY  IS  CONSTANT...' 

0068  ELSE 

0069  PRINT  •,  'IF  DEN=0,  CHECK  STATEMENTS  WITH  CRHO  IN  PFM3...' 

0070  STOP  'INP.135' 

0071  END  I F 

0072 

0073  IF  (CONVR. GT. 8. 3  .AND.  CONVR. LT. 8. 4)  THEN 

0074  RSTAR  =RSTAR/12. 

0075  ELSE 

0076  RSTAR  =RSTAR*CONVR 

0077  END  I F 


Jl 


i 

1 


■«! 


4 


READ3 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 


READ  (5,*)  CONFB,  CONFC,  CONFSA,  CONFSO,  EPSA.  EPSS,  EPSSO, 

*  MMAX,  IDBUG 

URITE(6,140}  CONFB,  CONFC,  CONFSA,  CONFSO,  EPSA,  EPSS,  EPSSO, 

*  MMAX,  IDBUG 

140  FORMAT(/'  CONVERGENCE  FACTOR  FOR  ADJUSTING  BETAO  ='T60,F7.2/ 

*  '  CONVERGENCE  FACTOR  FOR  ADJUSTING  Cb  ='T60,F7.2/ 

+  '  CONVERGENCE  FACTOR' FOR  ADJUSTING  STAGGER  ANGLE  ='T60,F7.2/ 

*  ’  CONVERGENCE  FACTOR  FOR  ADJUSTING  SOLIDITY  ='T60,F7.2/ 

+  '  CONVERGENCE  CRITERIA  FOR  del  BETAO  &  del  EQIVA.  PHI  s'T59, 

+  1PE11.1/ 

*  ’  CONVERGENCE  CRITERIA  TO  DETERMINE  SOLIDITY  »'T59,1PE11 .1/ 

*  '  ACCEPTABLE  ERROR  IN  SOLIDITY  ='T59.1PE11 .1/ 

+  '  MAXIMUM  ITERATION  NUMBER  «'T60,I4/'  IDBUG  s'T60,I4) 

OMEGA  =PI*RPM/30. 

USTAR  =RSTAR*aMEGA 

URITE(6,210)  OMEGA,  RSTAR,  USTAR 
210  FORMAT(/'  ANGULAR  VELOCITY  (rad/sec)  =' ,T60,F10.5/ 

+  '  REFERENCE  RADIUS  AFTER  CONVERTED  TO  BE  IN  Ft  or  meters  ='T60, 

+  F10.5/ 

'  REFERENCE  BLADE  SPEED  IN  fps  or  mps  ='T60,F10.5) 

READ  (5,*)  NBLADE,  NSECR,  NSTA,  INTERP  READ4 

URITE(6,310)  NBLADE,  NSECR,  NSTA 
310  FORMAK/'  NUMBER  OF  BLADES  z'T60,I4/ 

+  '  NUMBER  OF  CROSS-SECTIONS  ALONG  THE  RADIUS  DIRECTION  ='T60,I4/ 

*  >  NUMBER  OF  STATIONS  ALONG  A  CHORD  3>T60,I4/) 

IF  (INTERP. EO.O)  THEN 
URITE(6,*) 

'THE  FOLLOWING  SECTION  DATA  READ  DIRECTLY  FROM  INPUT;' 

ELSE 

URITE(6,*)  'SECTION  DATA  OBTAINED  THROUGH  INTERPOLATION  BASED  ', 

*  'ON  DATA  READ  FROM  UNIT  21' 

END  IF 

IF  ( NSECR. GT.NSECRM  .OR.  NSTA.LT.3  .OR.  NSTA.GT.NSTAMX)  THEN 
PRINT  *,  'NSECR. GT.NSECRM  .OR.  NSTA.GT.NSTAMX...',  NSECR, 

*  NSECRM,  NSTA,  NSTAMX 
STOP  'INP.153' 

END  IF 

C  500  DATA  PREPARATIONS 

PI2N  >(PI+PI)/NBLAOE 

RETURN 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

0  SCOOE 

901 

1  SPDATA 

1136 

2  SLOCAL 

80 

3  DI 

20 

4  DIJP 

8 

5  DIL 

4 

6  DIP 

12 

7  IJ 

12 

8  IP 

8 

Attributes 


PIC 

CON 

REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

WRT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated  2181 


ENTRY  POINTS 

Address  Type  Name 
0-00000000  INP 


References 

1« 


VARIABLES 


Attributes  References 


Address  Type  Name 


3-00000000 

R*4 

CONFB 

COMM 

48 

79* 

81 

8-00000000 

R*4 

CONFC 

COMM 

53 

79* 

81 

8-00000004 

R*4 

CONFSA 

COMM 

53 

79= 

81 

3-00000004 

R*4 

CONFSO 

COMM 

48 

79* 

81 

2-00000008 

R*4 

CONVR 

59= 

60 

73(2) 

76 

7-00000000 

R*4 

DEN 

COMM 

52 

59* 

66 

6-00000000 

R*4 

EPSA 

COMM 

51 

79= 

81 

3-00000008 

R*4 

EPSS 

COMM 

48 

79* 

81 

3-OOOOOOOC 

R*4 

EPSSO 

COMM 

48 

79= 

81 

6-00000004 

1*4 

IDBUG 

COMM 

51 

79= 

81 

7-00000004 

1*4 

INTERP 

COMM 

52 

101= 

107 

6-00000008 

1*4 

MMAX 

COMM 

51 

79= 

81 

2-OOOOOOOC 

1*4 

NBLAOE 

101* 

102 

122 

AP-00000004a 

1*4 

NSECR 

1 

101= 

102 

115 

4-00000000 

1*4 

NSTA 

COMM 

49 

101= 

102 

115(2) 

5-00000000 

R*4 

OMEGA 

COMM 

50 

93= 

94 

95 

2-00000000 

R*4 

PI 

55D 

93 

122(2) 

3-00000010 

R*4 

P12N 

COMM 

48 

122= 

2-00000004 

R*4 

RPM 

59= 

60 

93 

7-00000008 

R*4 

RSTAR 

COMM 

52 

59= 

60 

74(2)= 

4-00000004 

R*4 

USTAR 

COMM 

49 

94= 

95 

PARAMETER  CONSTANTS 


Type  Name 


References 


1*4  NSECRM 
1*4  NSTAMX 


46«  115  116 

46#  115  116 


LABELS 


Address 

Label 

References 

1-00000106 

130' 

60 

61# 

1-000001 BA 

140' 

81 

83# 

1-00000358 

210' 

95 

96# 

1-000003ED 

310' 

102 

103# 

................................................ 

KEY  TO  REFERENCE  FLAGS 
=  ■  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 

D  -  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 

4. - 4. 


COMMAND  QUALIFIERS 

F/LIS/CHE/CRO  INP.FOR 

/CHECK3(B0UN0S,0VERFL0W,UN0ERFL0U) 

/DEBUG>(NOSYMBOLS. TRACEBACK) 

/STAN0ARD«(N0SYNTAX, NOSOURCE  FORM) 

/SHOU«(NOPREPROCESSOR . NOI NCLUDE , MAP , NOO I CT I ONAR Y .SINGLE) 

/WARN INGS=<GENERAL , HOOECLARAT IONS) 

/CONTINUATIONS*)?  /CROSS  REFERENCE  /NOO  LINES  /NOEXTEND  SOURCE  /F77 
/NOG  FLOATING  /I4  /NOMACHINE  CODE  /OPtTmIZE 


116 

116 


76(2) 
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15'Jun-1988  14:27:06  VAX  FORTRAN  V4.0-2 

9-Jun-1988  09:16:47  DUAO: CCH1ANG.3037.DSN3] INP2.FOR;5 


P 


0001  SUBROUTINE  1NP2(IC) 

0002  C  (3037-0SN3-INP2)  (J>  2NG  INPUT  ROUTINE 

0003  C  Referenced  by  MAIN  (0SN3);  references  HELLOR2  &  SPLINI 

0004  C  Coded  03APR87;  REVISED  01JUN88 

0005 

0006  C 

0007  C  ...AFTER  REA07  IN  "INP"... 

0008  C 

0(X)9  C  REA0201  TITLE 

0010  C  REA0202  SIG  INITIALLY  GUESSED  SOLIDITY 

0011 

0012  C  •**•*  READ203  TO  REAO210  REQUIRED  Iff  IMTERP«0  ••*** 
0013  C  *****  REA0210  REQUIRED  iff  DEN-0  ***** 


0014 

C 

REA0203 

CT1 

PERIPHERAL  VEL.  AT  THE  LEADING  EDGE  (L/T) 

0015 

C 

CT2 

PERIPHERAL  VEL.  AT  THE  TRAILING  EDGE  (L/T) 

0016 

C 

REA0204 

XAX 

X  COORDINATES  ALONG  AXIX  OF  ROTATION,  FOR 

0017 

C 

EACH  OF  NSTA  STATIONS  ALONG  THE  CHORD  (L). 

0018 

C 

XAX  WILL  BE  NORMALIZED  TO  CHORD  LENGTH,  IN  SUB 

0019 

C 

»HELLOR2“,  SUCH  THAT  XAX(1)«0  t  XAX(NSTA)>1  (.) 

0020 

c 

READ205 

R 

RADIUS  FROM  AXIS  OF  ROTATION  (L) 

0021 

c 

REAO206 

XM 

DISTANCE  ALONG  STREAMLINE  (M-COORDINATE)  (L) 

0022 

c 

REA0207 

CM 

MERIDIONAL  VEL.  (L/T) 

0023 

c 

REA0208 

B 

DISTANCE  BETWEEN  ADJACENT  STREMLINES  (L) 

0024 

c 

(EITHER  BETWEEN  1-1  ft  1*1  OR  HALF  OF  THAT) 

0025 

c 

READ209 

8K 

BLOCKAGE  FACTOR  OWING  TO  BLADE  THICKNESS  INSIDE 

0026 

c 

THE  IMPELLER  (.) 

0027 

c 

REQUIRED  iff  0EM»0  ***** 

0028 

c 

REA0210 

RHO 

DENSITY  OF  FLUID  (M/L"3) 

0029 

0030 

c 

*****  REA0211 

REQUIRED  iff  INTERPoO  ***** 

0031 

c 

READ211 

RSL 

RADIUS  DISTANCE  OF  THE  STREAMLINE  FROM  THE  AXIS 

0032 

c 

OF  ROTATION,  AT  SECTION  IRSL  (SEE  BELOW)  (L) 

0033 

c 

(DATA  INPUT  FROM  FILE  #21  ARE  USED  TO  ESTABLISH 

0034 

c 

THE  PERAMETERS  BASED  ON  THIS  RADIUS  ft  ITS 

0035 

c 

NEARBY  INPUT  RADII  BY  SIMPLE  INTERPOLATION) 

0036 

c 

IRSL 

STATION  «  (FROM  1  TO  NSTA)  WHERE  RSL  IS  DEFINED 

0037 

0038 

c 

*****  REA02101  TO  READ210  REQUIRED  iff  INTERPoO  ***** 

0039 

c 

*****  READ2111  REQUIRED  iff  DERaO  ***** 

0040 

c 

REAO2101 

(REM) 

TITLE  LINE 

0041 

c 

REA02102 

NI 

«  OF  STATIONS  (q-LINES)  FROM  LEADING  EDGE  TO 

0042 

c 

TRAILING  EDGE 

0043 

c 

NJ 

§  OF  STREAMLINES 

0044 

c 

READ2103 

CT1Z 

PERIPHERAL  VEL.  AT  THE  LEADING  EDGE  (L/T) 

0045 

c 

REAO2104 

CT2Z 

PERIPHERAL  VEL.  AT  THE  TRAILING  EDGE  (L/T) 

0046 

c 

REA02105 

XAXZ 

X  COORDINATES  ALONG  AXIX  OF  ROTATION,  FOR  EACH 

0047 

c 

OF  NSTA  STATIONS  ALONG  THE  CHORD  (L). 

0048 

c 

XAX  WILL  BE  NORMALIZED  TO  CHORD  LENGTH,  IN  SUB 

0049 

c 

"MELLOR2",  SUCH  THAT  XAX(1)=0  ft  XAX(MSTA)*1 

0050 

c 

REA02106 

RZ 

RADIUS  FROM  AXIS  OF  ROTATION  (L) 

0051 

c 

REA02107 

XMZ 

DISTANCE  ALONG  STREAMLINE  (M-COORDINATE)  (L) 

0052 

c 

READ2108 

CMZ 

MERIDIONAL  VEL.  (L/T) 

0053 

c 

READ2109 

BZ 

DISTANCE  BETWEEN  ADJACENT  STREMLINES  (L) 

0054 

c 

(EITHER  BETWEEN  1-1  ft  1*1  OR  HALF  OF  THAT) 

0055 

c 

REA02110 

BKZ 

BLOCKAGE  FACTOR  OWING  TO  BLADE  THICKNESS  INSIDE 

0056 

c 

THE  IMPELLER  (.) 

0057 

c 

*****  READ2111  REQUIRED  iff  0EN=0  ***** 

0058 

c 

READ2111 

RHOZ 

DENSITY  OF  FLUID  (M/L*3) 

0059 

c 

0060 

0061 

CHARACTER*80 

REM 

0062 

0063 

PARAMETER 

<  MSTAMX«11.  NSTLHX»9) 

0064 

c 

NSTLMX=MAX. 

B  OF  STREAM  LINES  U/  DATA  PROVIDED  BY  UNIT  21 

0065 

0066 

COMMON/D I J  P/ 

NSTA,  USTAR 

0067 

COMMON/D 

J  / 

R(NSTAMX),  XM(NSTAHX) 

0068 

COMMON/D 

JL  / 

CT1,  R1 

0069 

CQMMON/D 

JLP/ 

R1N,  R2N 

0070 

COMMON/D 

J  P/ 

SIG 

0071 

COMMON/  IJ  / 

DEN 

,  INTERP,  RSTAR 

0072 

COMMON/ 

JL  / 

CM1 

,  CMZ,  CT2,  R2 

0073 

COMMON/ 

J  P/ 

S(NSTAMX),  BK(NSTAMX),  RHO(NSTAMX),  RN(NSTAMX), 

0074 

♦ 

WM1N,  WM2N 

0075 

0076  DIMENSION  BKZ(NSTAMX,NSTLMX),  CMZ(NSTAMX.NSTLMX), 

0077  *  QZCNSTAMX.NSTLMX),  RHOZ(NSTAMX.NSTLMX).  RZ(NSTAMX,NSTLMX), 
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0078 

+  XAXZ(NSTAMX,NSTLMX),  XHZ(NSTAMX.NSTLMX), 

0075 

*  CM(NSTAHX),  XAX(NSTAMX),  tMN(NSTAHX), 

0080 

*  CTIZ(NSTLHX),  CT2Z(NSTLMX) 

0081 

0082 

C 

100  INPUT  8  ECHO  FOR  EACH  SECTION 

0083 

READ  (5,5110)  REN 

READ201 

0084 

READ  (5,*)  SIG 

READ202 

0085 

WRITE(6,105)  K.  REN,  SIG 

0086 

105  foRNAT('1**»**»»*********»******'/'  CROSS-SECTION  NUNBER'I3/ 

0087 

+  /  •***••**•*•*•*•«•«***•• 

0088 

+  '  INITIALLY  GUESSED  SOLIDITY  «'T54,F6.2) 

0089 

IF  (INTERP.EO.O)  THEN 

0090 

C 

110  INPUT  U/  KNOWN  VALUES 

0091 

READ  (5,*)  CT1,  CT2 

READ203 

0092 

READ  (5,*)  (  XAX(I),  IcI.nSTA) 

READ204 

0093 

READ  (5,*)  (  R(I),  I>1,NSTA) 

READ205 

0094 

READ  (5,*)  (  XN(I),  I«1,NSTA) 

REAO206 

0095 

READ  (5,*)  (  CN(I),  I-1,NSTA) 

READ207 

0096 

READ  (5,»)  (  B(I),  I=1,NSTA) 

READ208 

0097 

READ  (5,*)  (  BK(1),  I=1,NSTA) 

READ209 

0098 

IF  (DEN.EQ.O.)  THEN 

0099 

READ  <5,»)  (  RHO(I),  I*1,NSTA) 

READ210 

0100 

END  IF 

0101 

ELSE 

0102 

C 

130  OBTAIN  PARANETERS  THROUGH  INTERPOLATION 

0103 

READ  (5,»)  RSL,  TRSL 

READ211 

0104 

URITE(6,132)  RSL,  IRSL 

0105 

132  FORHATC  RADIUS  OF  STREANLINE  AT  THE  FOLLOWING  SEC.  #  IRSL  =' 

0106 

♦  T54,F10.6/ 

0107 

'  IRSL,  SECTION  NUHBER  TO  LOCATE  THE  ABOVE  RADIUS  -'T54,I3) 

0108 

OPEN(  21,  FILE='DSN3Zr,  STATUS='OLD' ,  READONLY) 

OPEN21 

0109 

READ  (21,*) 

REAO2101 

0110 

READ  (21,*)  NI,  NJ 

READ2102 

0111 

IF  (NI.NE.NSTA)  THEN 

0112 

PRINT  *,  'NI.NE.NSTA...  CHECK  COOING...' 

0113 

STOP  'INP2.135' 

0114 

END  IF 

0115 

READ  (21,*)  (  CT1Z(J),  Ja1,NJ) 

READ2103 

0116 

READ  (21,*)  (  CT22(J),  J»1,HJ) 

READ2104 

0117 

READ  (21,*)  (  (  XAX2(I,J),  I»1,NI),  J*1,NJ) 

REA02105 

0118 

READ  (21,*)  (  (  R2(I,J),  I«1,NI),  J«1,NJ) 

READ2106 

0119 

READ  (21,*)  (  (  XH2(I,J),  I»1,NI),  4=1, NJ) 

READ2107 

0120 

READ  (21,*)  (  (  CNZ(I,J),  1=1, NI),  J»1.NJ) 

REA02108 

0121 

READ  (21,*)  (  (  02(1,4),  1=1, NI),  J=1,NJ) 

REA02109 

0122 

READ  (21,*)  (  (  BKZ(I,J),  1=1, NI),  4=1, NJ) 

READ2110 

0123 

IF  (DEN.EQ.O.)  THEN 

0124 

READ  (21,*)  (  (  RHOZ(I,J),  4=1, NJ),  1=1, NI) 

READ2111 

0125 

END  IF 

0126 

CLOSE(21) 

CLOSE21 

0127 

0128 

DO  4=1, NJ 

0129 

IF  (  RZ(IRSL,J).GT.RSL  )  GOTO  140 

0130 

END  DO 

0131 

4  =N4 

0132 

GOTO  150 

0133 

0134 

140  IF  (J.E0.1)  GOTO  150 

0135 

JM  =4-1 

0136 

RR1  =(  RSL-RZ(IRSL,JM)  )  /  (  RZ(IRSL,J)-RZ(IRSL,4M)  ) 

0137 

RR2  =1.-RR1 

0138 

CT1  =CT1Z(J)*RR1*CT1Z(JN)*RR2 

0139 

CT2  =CT2Z(J)*RRUCT2Z(JN)*RR2 

0140 

DO  4J>1,NJ 

0141 

CTIZ(JJ)  =RZ(IRSL,JJ) 

0142 

END  DO 

0143 

DO  I=1,NSTA 

0144 

IF  (J.Ea.2)  THEN 

0145 

BJN  =(  02(I,2)-OZ(I,1)  )*2. 

0146 

ELSE 

0147 

BJH  =OZ(I,J)-QZ(I,J-2) 

0148 

END  IF 

0149 

IF  (4.EO.NJ)  THEN 

0150 

BJ  =(  QZ(I,NJ)-QZ(I,NJM)  )*2. 

0151 

ELSE 

0152 

BJ  =OZ(I,J+1)-OZ(1,J-1) 

0153 

END  IF 

0154 

0155 

B(I)  =  B4*RR1  B4M*RR2 

0156 

BK(I)  =  BKZ(I,4)*RR1  +  BKZ( I , JH)*RR2 

0157 

R(I)  *  RZ(I,J)*RR1  ♦  RZ(I,JM)*RR2 

-B-104- 


RH0(I)xRH0Z(I,J}*ftlt1  +  RH0Z(1,JM)*RR2 
XAX(I)>XAXZ(I,J)*RR1  *  XAXZ(l,JM}*RR2 
XM(I)  s  XMZ(1,J)*RR1  +  XMZ(I.JM)*RR2 
00  JJs1,NJ 

CT2Z(JJ)  sCMZd.JJ) 

END  00 

CALL  SPLINK  NJ,  CT1Z,  CT22,  1,  RSL,  CM.  OUM,  OUH,  0.,  IE-4) 

CM(I)  sCMl 
ENO  00 
GOTO  160 

150  REM  ='  •**  WARNING  RSL  BEYONO  RANGE  OF  STREAMLINE...' 
WRITE(6,*)  REM.  RSL,  IRSL,  J.  RZ(IRSL.J) 

PRINT  •,  REM 
CT1  »CT12(J) 

CT2  =CT22(J) 

00  I=1,NSTA 
IF  (J.EQ.I)  THEN 
B(I)=(  02(1,2)  -02(1,1)  )*2. 

ELSE 

B(I)<(  0Z(I,NJ)-0Z(1,NJM)  )*2. 

ENO  IF 

BK(I)  =  BKZ(I.J) 

CM(I)  «  CMZ(I,J) 

R(I)  >  RZ(I,J) 

RHO(I)=RHOZ(I,J) 

XAX(I)>XAXZ(I.J) 

XM(I)  s  XMZd.J) 

ENO  OO 
160  ENO  IF 

IF  (OEN.GT.O.)  THEN 
OO  1«1,NSTA 
RHOd)>OEN 
ENO  OO 
ENO  IF 

URITE<6,170)  CT1,  CT2, 

+  (  I,  Rd),  XAXd),  XMd),  CM(I),  Bd).  BKd),  RHOd),  I>1,NSTA) 

170  FORMAT('  PERIPHERAL  VEL.  AT  LEAOING  EOGE  <  'T54.F9.S/ 

♦  '  PERIPHERAL  VEL.  AT  TRAILING  EOGE  «'T54,F9.5/// 

♦  4X't  R  X  XM  CM  B  BK’, 

♦  '  RHO'// 

♦  (I5,7F10.5)) 

C  200  PREPARE  FOR  MELLOR'S  METHOD 

CALL  MELL0R2(  NSTA,  SIG,  XAX) 

C1000  PREPARATION 

CM1  *CM(1) 

CM2  sCMCNSTA) 

R1  *R(1) 

R2  «R(NSTA) 

00  1=1, NSTA 

RNd)  =Rd)/RSTAR 

UMNd)  =CMd)/USTAR 
ENO  DO 

R1N  *RN(1) 

R2N  =RN(NSTA) 

UM1N  =WMN(1) 

UM2N  =UMN(NSTA) 


C5000  FORMAT 
5110  F0RMAT(A80) 

RETURN 

ENO 


PROGRAM  SECTIONS 


Bytes  Attributes 
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0  SCOOE 

3129 

PIC  CON 

REL 

LCl 

SHR 

EXE 

RD 

NOWRT 

LONG 

1  SPOATA 

527 

PIC  CON 

REL 

LCL 

SHR 

NOEXE 

RO 

NOURT 

LONG 

2  SLOCAL 

3224 

PIC  CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

3  DIJP 

8 

PIC  OVR 

REL 

G8L 

SHR 

NOEXE 

RO 

URT 

LONG 

4  DJ 

88 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

5  OJL 

8 

PIC  OVR 

REL 

G8L 

SHR 

NOEXE 

RO 

URT 

LONG 

6  DJLP 

8 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

7  DJP 

4 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

8  IJ 

12 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

9  JL 

16 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

10  JP 

184 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RO 

URT 

LONG 

Total  Space  Allocated  7208 


ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  INP2  1« 

VARIABLES 


Address  Type  Nanw  Attributes  References 


•* 

R*4 

8J 

150= 

152= 

155 

** 

R*4 

BJM 

145= 

147= 

155 

9-00000000 

R*4 

CM1 

COMM 

72 

210= 

9-00000004 

R*4 

CM2 

COMM 

72 

211= 

2-OOOOOC10 

R*4 

CM! 

165A 

167 

5-00000000 

R*4 

CT1 

COMM 

68 

91  = 

138= 

174= 

197 

9-00000008 

R*4 

CT2 

COMM 

72 

91= 

139= 

175= 

197 

8-00000000 

R»4 

OEN 

COMM 

71 

98 

123 

191 

193 

2-00000C14 

R*4 

OUM 

165(2)A 

•• 

1*4 

I 

92(2)= 

93(2)= 

94(2)= 

95(2)= 

96(2)= 

97(2)= 

99(2)= 

117(2)= 

118(2)= 

119(2)= 

120(2)* 

121(2)= 

122(2)= 

124(2)= 

143* 

145(2) 

147(2) 

150(2) 

152(2) 

155 

156(3) 

157(3) 

158(3) 

159(3) 

160(3) 

162 

167 

176* 

178(3) 

180(3) 

182(2) 

183(2) 

184(2) 

185(2) 

186(2) 

187(2) 

192* 

193 

197(9)* 

215= 

216(2) 

217(2) 

8-00000004 

1*4 

INTERP 

COMM 

71 

89 

2-OOOOOBF4 

1*4 

IRSL 

103= 

104 

129 

136(3) 

141 

172(2) 

2-OOOOOCOO 

1*4 

J 

115(2)= 

116(2)= 

117(2)= 

118(2)= 

119(2)= 

120(2)= 

121(2)= 

122(2)= 

124(2)= 

128= 

129 

131= 

134 

135 

136 

138 

139 

144 

147(2) 

149 

152(2) 

156 

157 

158 

159 

160 

172(2) 

174 

175 

177 

182 

183 

184 

185 

186 

187 

*• 

1*4 

JJ 

140= 

141(2) 

161  = 

162(2) 

•• 

1*4 

JM 

135= 

136(2) 

138 

139 

156 

157 

158 

159 

160 

AP-00000004a 

1*4 

K 

1 

85 

2-00000BF8 

1*4 

NI 

110= 

111 

117 

118 

119 

120 

121 

122 

124 

2-OOOOOBFC 

1*4 

NJ 

110= 

115 

116 

117 

118 

119 

120 

121 

122 

124 

128 

131 

140 

149 

150 

161 

165  A 

180 

2-OOOOOCOC 

1*4 

NJN 

150 

180 

3-00000000 

1*4 

NSTA 

COMM 

66 

92 

93 

94 

95 

96 

97 

99 

111 

143 

176 

192 

197 

207a 

211 

213 

215 

221 

223 

5-00000004 

R*4 

R1 

COMM 

68 

212= 

6-00000000 

R*4 

R1N 

COMM 

69 

220= 

9-OOOOOOOC 

R*4 

R2 

COMM 

72 

213= 

6-00000004 

R*4 

R2N 

COMM 

69 

221= 

2-OOOOOBAO 

CHAR 

REM 

61 

83* 

85 

171  = 

172 

173 

** 

R*4 

RR1 

136= 

137 

138 

139 

155 

156 

157 

158 

159 

160 

** 

R*4 

RR2 

137* 

138 

139 

155 

156 

157 

158 

159 

160 

2-OOOOOBFO 

R*4 

RSL 

103= 

104 

129 

136 

165  A 

172 

8-00000008 

R*4 

RSTAR 

COMM 

71 

216 

7-00000000 

R*4 

SIG 

COMM 

70 

84= 

85 

207A 

3-00000004 

R*4 

USTAR 

COMM 

66 

217 

-B-106- 


10-00000080  R*4  UH1N 
10-00000084  R*4  unaN 


COHM 

COMM 


73 

73 


222« 

223« 


ARRAYS 


Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

10-00000000 

R*4 

8 

COMM 

44 

(11) 

73 

96= 

155= 

178= 

197 

10-0000002C 

R*4 

8K 

COMM 

44 

(11) 

73 

97= 

156= 

182= 

2-00000000 

R*4 

BKZ 

396 

(11,  9) 

76 

122= 

156(2) 

182 

2-OOOOOA04 

R*4 

CM 

44 

(11) 

76 

95= 

167= 

183= 

210 

211 

217 

2-oooooiac 

R*4 

CMZ 

396 

(11.  9) 

76 

120= 

162 

183 

2-00000858 

R*4 

CT1Z 

36 

(9) 

76 

115= 

138(2) 

141  = 

174 

2-00000B7C 

R*4 

CT2Z 

36 

(9) 

76 

116= 

139(2) 

162= 

175 

2-00000318 

R*4 

QZ 

396 

(11,  9) 

76 

121  = 

145(2) 

147(2) 

152(2) 

178(2) 

180(2) 

4-00000000 

R*4 

R 

COMM 

44 

(11) 

67 

93= 

157= 

184= 

212 

213 

216 

10-00000058 

R*4 

RKO 

COMM 

44 

(11) 

73 

99= 

158= 

185= 

197 

2-000004A4 

R*4 

RHOZ 

396 

(11.  9) 

76 

124= 

158(2) 

185 

10-00000084 

R*4 

RN 

COMM 

44 

(11) 

73 

216= 

220 

221 

2-00000630 

R*4 

RZ 

396 

(11.  9) 

76 

118= 

129 

136(3) 

157(2) 

172 

184 

2-00000B2C 

R*4 

UMN 

44 

(11) 

76 

217= 

222 

223 

2-00000800 

R*4 

XAX 

44 

(11) 

76 

92= 

159= 

186= 

207a 

2-0000078C 

R*4 

XAXZ 

396 

(11.  9) 

76 

117= 

159(2) 

186 

4-0000002C 

R*4 

XM 

COMM 

44 

(11) 

67 

94= 

160= 

187= 

2-00000948 

R*4 

XMZ 

396 

(11,  9) 

76 

119* 

160(2) 

187 

PARAMETER  CONSTANTS 

Type  Name 

References 

1*4  NSTAMX 

638 

67(2)  73(4) 

76(10) 

1*4  NSTLMX 

63* 

76(9) 

LABELS 

Address 

1-00000038 

Label 

105' 

References 

85 

86« 

1-00000085 

132' 

104 

1058 

0-000005 A8 

140 

129 

1348 

0-00000881 

150 

132 

134 

1718 

0-OOOOOA8E 

160 

169 

1898 

1-0000012A 

170' 

197 

1998 

1-000001DA 

5110' 

83 

2268 

FUNCTIONS  AND  SU8RatTINES  REFERENCED 


Type  Name 


References 


FORSCLOSE  126 
FORSOPEN  108 
MELLOR2  207 
SPLINI  165 


I  KEY  TO  REFERENCE  FLAGS 

I  -  -  Value  Modified 

I  #  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 


I  D  -  Data  Initialization  | 

I  (n)  -  Number  of  occurrences  on  line  j  — B-107- 

♦ . . 


180= 

197 

197 

165  A 
165  A 
150(2) 
197 
193= 

141 

197 

197 


15-Jun-1988  14:16:46  VAX  FORTRAN  V4.0-2  P 

1-Jun-1988  12:55:49  OUAO: CCHIANC.3037.DSN3]MAP32.FOR;22 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


^BROUTINE  MAP32 

C  (3037-0SN3-MAP32}  (L)  MAPPING  FROM  30  TO  20 
C  Refernced  by  MAIN  (0SN3};  references  MTHSATAND  (twice) 

C  To  be  coopiled  by  VAX-11  FORTRAN,  v.4.0 
C  Coded  05MAR87;  REVISEO  01JUN88 

COMMON/DI  L  /  OMEGA 

COMMON/0  JL  /  CTI,  R1 

COMMON/O  JLP/  R1N,  R2N 

CGMMON/D  L  /  BETAO,  CLICLM,  UXO 

COMMON/D  LP/  BETA1,  BETA2,  TANBI,  TANB2 

COMMON/  JL  /  CM1,  CM2,  CT2,  R2 

WX1  =R1N*CM1 

WX2  =R2N»CM2 

WXO  =(UX1+WX2)*.5 

UY1  =R1N*(  R1»OMEGA-CT1  ) 

TANBI  sUYI/VIXO 

BETAI  =ATANO(TANB1) 

WY2  «R2N*(  R2*0M£GA-CT2  ) 

TANB2  XUY2/UX0 

BETA2  >ATAN0(TANB2) 

UYO  *(W¥1+UY2)*.5 

BETAO  >ATANO(UYO/UXO) 

UXOSO  >WX0*UX0 

CLICLM  =(  UYO*UY04'UXOSO  )  /  (  UY1*UYUUX0Sa  ) 

URITE(6,110)  WX1,  WX2,  UXO,  UYl,  UY2,  UYO,  BETAI,  BETA2,  BETAO, 

+  {UX2-UX1)/UX1,  CLICLM 
110  FORMAT(//'  AFTER  MAPPED  INTO  X-Y  PLANE,'/ 

+  '  UX1  UX2  UXO  UYl  UY2  UYO  ' , 

+  '  BETAI  BETA2  BETAO  *'/9F10.5/ 

♦  '  VARIATION  OF  AXIAL  VELOCITY  RATIO,  (UX2-UX1)/UX1,  ='F10.5/ 

♦  '  CLI/CLhi  ratio  ='F43.2) 

RETURN 

END 


PROGRAM  SECTIONS 


Name 

Bytes 

0  SCOOE 

323 

1  SPOATA 

219 

3  OIL 

4 

4  DJL 

8 

5  OJLP 

8 

6  DL 

12 

7  DLP 

16 

8  JL 

16 

Attributes 


PIC 

CON 

REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated  606 


ENTRY  POINTS 

Address  Type  Naaw  References 

0-00000000  MAP32  1« 


VARIABLES 


Address 

Type 

Name 

Attributes 

References 

6-00000000 

R»4 

BETAO 

COMM 

10 

24= 

27 

7-00000000 

R*4 

BETAI 

COMM 

11 

19= 

27 

7-00000004 

R*4 

BETA2 

COMM 

11 

22= 

27 

6-00000004 

R*4 

CLICLM 

COMM 

10 

26= 

27 

8-00000000 

R*4 

CM1 

COMM 

12 

14 

8-00000004 

R*4 

CN2 

COMM 

12 

15 

4-00000000 

R*4 

CTI 

COMM 

8 

17 

8-00000008 

R*4 

CT2 

COMM 

12 

20 

3-00000000 

R»4 

OMEGA 

COMM 

7 

17 

20 

4-00000004 

R*4 

R1 

COMM 

8 

17 

5-00000000  R*4  RIN 


COMM 


9 


14 

B-108- 


.17 


8-OOOOOOOC 

R*4 

R2 

COMM 

12 

20 

5-00000004 

R*4 

R2N 

COMM 

9 

15 

20 

7-00000008 

R*4 

TANB1 

COMM 

11 

18= 

19 

7-OOOOOOOC 

R*4 

TANB2 

COMM 

11 

21= 

22 

6-00000008 

R*4 

WXO 

COMM 

10 

16= 

18 

21 

24 

25(2) 

*• 

R*4 

WXOSO 

25* 

26(2) 

•* 

R*4 

WX1 

14= 

16 

27(3) 

** 

R»4 

UX2 

15= 

16 

27(2) 

** 

R*4 

WYO 

23= 

24 

26(2) 

27 

•• 

R»4 

WY1 

17= 

18 

23 

26(2) 

27 

•* 

R*4 

UY2 

20= 

21 

23 

27 

LABELS 

Address 

Label 

References 

1-00000000 

110' 

27 

29# 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type  Name 


References 


R*4  MTHSATAND 


19  22  24 


KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argument,  possibly  modified 

D  -  Data  Initialization 

(n)  ■  Number  of  occurrences  on  line 

.......  — ..............  —  - - .......  — . — 4 


27 


-B-109- 


23-Nay-198B  12:51:19  VAX  FORTRAN  V4.0-2  P 

19-May-1987  13:44:10  DUAO: tCHIANG.3037.DSN]MELLOR2.FOR;51 

0001  SUBROUTINE  MELL0R2(  NSTA.  SIG,  XAX) 

0002 

0003  C  (3037-OSN3-HELLOR2)  (N)  READ  STORED  TABLE  OF  G,  H,  B.  &  T  FUNCTIONS 

0004  C  REFERENCED  BY  INP2;  REFERENCES  NTHSATAN  t,  FORSCLOSE  t  FORSOPEN 

0005  C  TO  BE  COMPILED  BY  VAX-11  FORTRAN.  V.  4.0 

0006  C  COOED  BY  U.  CHIANG,  26MAR87;  TOUCHED  19MAY87 

0007 

0008  C 

0009  C  REA01101  TITLE 
0010  C 

0011  C  REA01102  REMARK 

0012  C 

0013  C  REA01103 

0014  C  NFR  #  OF  FOURIER  SERIES  TERMS  USING,  e.g.,  NFRO  TO  HAVE  AO,  Al,  i  A2 
0015  C  ■ 

0016  C  READ1104  REMARK 

0017  C 

0018  C  REA01105 

0019  C  CS  SOLIDITY 

0020  C  AMOA  STARTING  STAGGER  ANGLE  (FOR  INTERPOLATION),  in  deg. 

0021  C  AMOI  (CONSTANT)  INTERVAL  OF  STAGGER  ANGLE,  in  deg. 

0022  C  AMDZ  ENDING  STAGGER  ANGLE,  in  deg.  (AMDZ>AMDA) 

0023  C 

0024  C  REAO1106  REMARK 

0025  C 

0026  C  READ 11 07 

0027  C  NYS  #  OF  PTS.  ALONG  THE  CHORD  TO  INPUT  CAMBER  FCP(XCC),  FROM 

0028  C  (3037-MELL0R- INPUT) 

0029  C 

0030  C  READ 11 08  REMARK 

0031  C 

0032  C  READ 11 09 

0033  C  XCC  X-COOROINATES  OF  CAMBER  SLOPE  FUNCTION  FCPP,  SIZE  NYS 
0034  C 

0035  C  REAO1110 

0036  C  FCP  CAMBER  SLOPE  (NORMALIZED  BY  CB,  'FCP'  IN  'MELLOR,'  AS  A 
0037  C  FUNCTION  OF  XCC,  SIZE  NYS 

0038  C 

0039  C  REA01111  REMARK 

0040  C 

0041  C  REA01112 

0042  C  TOC  THICKNESS  DEVIOED  BY  CHORD  LENGTH 
0043  C 

0044  C  REACH  13  REMARK  (3  LINES) 

0045  C 

0046  C  REA01114  (FOR  AMOAOsAMDAA.AMOAZ.AMOAI ) 

0047  C  6J  G  FUNCTION 

0048  C  HJ  H  FUNCTION 

0049  C  BJ  B  FUNCTION 

0050  C  TJ  T  FUNCTION 

0051  C 

0052  C  REA01115 

0053  C  IDUM  SHOULD  BE  999  TO  CHECK  THE  END  OF  INPUT  FILE 

0054  C 

0055 

0056  PARAMETER  (  NAMOAM-90,  NFRMX»15,  NYSMX*101,  MSTAMX=11) 

0057 

0058  COMMON/NO/  GJ(NAMDAM,NFRMX,NFRMX),  HJ(NAMOAM,NFRMX,NFRMX), 

0059  BJ(NAMOAM,NFRMX),  TJ(NAMOAM,NFRMX), 

0060  *  AMDAJ(NAMDAN).  FCP(NTSMX),  VEC(NFRMX), 

0061  ♦  XAXIS(NSTAMX),  XCC(NYSMX), 

0062  >  AMDA,  AMOI,  AMOAMN,  AMOAMX, 

0063  ♦  NAMDA,  NFR,  NFRSQ,  NFRSOP,  NYS,  NYSM, 

0064  ♦  PI,  PI2,  TOC 

0065 

0066  DIMENSION  XAX(NSTA) 

0067 

0068  OPEN(  11,  FILE»'HEL010',  STATUS»'OLO' ,  READONLY) 


0069 

0070  C  100  INPUT  DATA  FROM  UNIT  11 

0071  READ  (11,*)  REAO1101 

0072  READ  (11,*)  READ1102 

0073  READ  (11,*)  NFR  REA01103 

0074  READ  (11,*)  REA01104 

0075  READ  (11,*)  CS,  AMOA,  AMOI,  AMDZ  READ1105 

0076  IF  (CS.NE.SIG)  THEN 


0077  PRINT  *,  'CS.NE.SIG...',  CS,  SIG 


0078 

STOP  'MELLOR2.105' 

0079 

END  IF 

0080 

RtAO  (11.*) 

READ 11 06 

0081 

READ  (11,*)  NYS 

READ 11 07 

0082 

IF  (NYS.GT.NYSMX)  THEN 

0083 

PRINT  *,  'NYS.GT.NYSMX...',  NYS,  MYSHX 

0084 

STOP  'MELLOR2.107' 

0085 

END  IF 

0086 

READ  (11,*) 

READ  11 08 

0087 

READ  (11,*)  (  XCC(N).  Nsl.NYS) 

RE AO 1109 

0088 

READ  (11,*)  (  FCP(N),  N*1,MYS) 

REA01110 

0089 

READ  (11,*) 

REA01111 

0090 

READ  (11.*)  TOC 

REA01112 

0091 

IF  (TOC.LT.O.  .OR.  TOC.GT..2)  THEN 

0092 

PRINT  *,  'TOC  <  0  or  >  .2  ...',  TOC 

0093 

STOP  'MELLOR2.109' 

0094 

END  I F 

0095 

READ  (11,5120) 

READ1113 

0096 

NAMOA  =0 

0097 

DO  AMDAO>AMOA,AMOZ.AMOI 

0098 

NAMOA  sNAMDA-^'l 

0099 

AMDAJ(NAMDA)  <AMOAO 

0100 

READ  (11,*)  (  (  GJ(NAMOA,N,K),  K<1.NFR),  N>1,NFR), 

0101 

*  (  (  HJ(NAMOA.N,K),  K^I.NFR),  N>1,NFR). 

0102 

*  (  SJ(NAMDA,N).  N«1,NFR).  (  TJ(NAMOA.N),  N>1,NFR) 

REA01114 

0103 

END  DO 

0104 

READ  (11,*)  lOUM 

READ1115 

0105 

IF  (10UN.NE.999)  THEN 

0106 

PRINT  *,  'CHECK  MEL010.0AT. . . ' ,  IDUM 

0107 

STJP  'MELLOfi2.130' 

0108 

END  IF 

0109 

CLOSE(II) 

0110 

0111 

C  200  PREPARE  CONSTANTS 

0112 

AMOAMN  =AMOA 

0113 

AMOAMX  >AM0AJ (NAMOA) 

0114 

NFRSO  3NFR*NFR 

0115 

NFRSOP  sNFRSO^I 

0116 

0117 

C  300  PREPARE  FCP 

0118 

NYSM  »NYS-1 

0119 

PI  *ATAN(1.)  *  4. 

0120 

PI2  »PI+PI 

0121 

XO  =XAX(1) 

0122 

CHORD  =XAX(NSTA)-XO 

0123 

DO  I>1,NSTA 

0124 

XAXIS(I)s(  XAX(I)-X0  )/CHORD 

0125 

END  DO 

0126 

0127 

RETURN 

0128 

0129 

C5000  FORMAT 

0130 

5120  FORMAT (//) 

0131 

END 

PROGfiAM  SECTIONS 


Name 

Bytes 

Attributes 

0 

SCWE 

1339 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1 

SPOATA 

123 

PIC  CON  REL 

UCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2 

(LOCAL 

168 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

3 

NO 

174124 

PIC  OVR  REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

175754 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  MELLOR2  1# 

VARIABLES 

Address  Type  Name  Attributes  References 


3-0002A7F8 

R*4 

AMDA 

COMM 

58 

75= 

97 

112 

** 

R*4 

AMO  AD 

97= 

99 

3-0002A800 

«»4 

AMOAMN 

COMM 

58 

112= 

3-0002A804 

R*4 

AMDAMX 

COMM 

58 

113= 

3-0002A7FC 

R*4 

AMD  I 

COMM 

58 

75= 

97 

2-00000004 

R*4 

AMDZ 

75= 

97 

•• 

R*4 

CHORD 

122= 

124 

2-00000000 

R*4 

CS 

75= 

76 

77 

*• 

1*4 

I 

123- 

124(2) 

2-00000010 

1*4 

IDUM 

104- 

105 

106 

** 

1*4 

K 

100(4)- 

** 

1*4 

N 

87(2)- 

88(2)- 

100(8)- 

3-0002A808 

1*4 

NAMOA 

COMM 

58 

96= 

98(2)- 

99 

100(4) 

3-0002A80C 

1*4 

NFR 

COMM 

58 

73- 

100(6) 

114(2) 

3-0002A810 

1*4 

NFRSO 

COMM 

58 

114= 

115 

3-0002A814 

1*4 

NFRSOP 

COMM 

58 

115= 

AP- 00000004a 

1*4 

NSTA 

1 

66 

122 

123 

3-0002A818 

1*4 

NYS 

COMM 

58 

81  = 

82 

83 

87 

3-0002A81C 

1*4 

NYSM 

COMM 

58 

118= 

3-0002A820 

R*4 

PI 

COMM 

58 

119- 

120(2) 

3-0002A824 

R*4 

PI2 

COMM 

58 

120- 

AP-OOOOOOOSa  R*4 

SIG 

1 

76 

77 

3*0002A828 

R*4 

TOC 

COMM 

58 

90- 

91(2) 

92 

** 

R*4 

XO 

121- 

122 

124 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

3-0002A3Q0 

R*4 

AMOAJ 

COMM 

360 

(90) 

58 

99= 

3-00027800 

R*4 

BJ 

COMM 

5400 

(90,  15) 

58 

100= 

3-0002A468 

R*4 

FCP 

COMM 

404 

(101) 

58 

88= 

3-00000000 

R*4 

GJ 

COMM 

81000 

(90,  15,  15) 

58 

100= 

3-00013C68 

R*4 

HJ 

COMM 

81000 

(90,  15,  15) 

58 

100= 

3-000280E8 

R*4 

TJ 

COMM 

5400 

(90,  15) 

58 

100* 

3-0002A5FC 

R*4 

VEC 

CONN 

60 

(15) 

58 

Ap-oooooooca 

R*4 

XAX 

** 

(*) 

1 

66 

3-0002A638 

R*4 

XAXIS 

CONN 

44 

(11) 

58 

124= 

3-0002A664 

R*4 

XCC 

CONN 

404 

(101) 

58 

87= 

113 


88 


113 


118 


122 


PARAMETER  CONSTANTS 


Type 

Name 

References 

1*4 

NAMDAN 

56# 

58(5) 

1*4 

NFRMX 

56# 

58(7) 

1*4 

NSTANX 

56# 

58 

1*4 

NYSNX 

56# 

58(2) 

LABELS 

Address  Label 
1-00000078  5120' 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 

Type  Name 

FORSCLOSE 
FORSOPEN 
R*4  MTHSATAN 


82 


83 


References 

95  130# 

References 

109 

68 

119 


23-May-1988  13:34:29 
19-May- 1987  13:44:25 

0001  SUBROUTINE  MELL0R3(  ALPHAM,  C8,  STAG,  NSTA,  VNX,  VNY,  123, 

0002  +  AO,  Al,  CLM) 

0003 

0004  C  (3037-0SN3-MELL0R3)  (0)  CALC.  CASCADE  LIFT  COEF.  BASED  ON  ANGLE  OF  INCIDENT, 

0005  C  CAMBER,  &  VELOCITIES  INDUCED  BY  VORTICES  S  SOURCES  DUE  TO  30  EFFECTS  » 

0006  C  REFERENCED  BY  DSN2  &  PFH3 

0007  C  REFERENCES  FILONC,  SIMULl,  &  SPLINT,  &  HTHSCOSD  &  HTHSSIND 

0008  C  INPUT  ALPHAM.  C8,  STAG.  VNX,  &  VNY  C  ALL  DATA  IN  COMMON  STATEMENTS 

0009  C  OUTPUT  CLM 

0010  C  COOED  BY  W.  CHIANG,  27MAR87;  REVISED  16APR87;  TOUCHED  19MAY87 
0011 

0012  C  ALPHAMMEAN  ANGLE  OF  INCIDENT  RELATIVE  TO  CHORD  LINE 
0013  C  CB  CAMBER 

0014  C  NSTA  «  OF  STATIONS  ALONG  CHORD 

0015  C  STAG  STAGGER  ANGLE  in  deg. ' 

w016  C  VNX  X-COMP.  OF  VELOCITIES  (NORMALIZED  TO  USTAR)  INDUCED  BY  VORTICES 

0017  C  &  SOURCES  DUE  TO  3D  EFFECTS;  NOT  USED  IF  123=2 

0018  C  VNY  Y-COMP.  OF  VELOCITIES  (NORMALIZED  TO  USTAR)  INDUCED  BY  VORTICES 
0019  C  S  SOURCES  DUE  TO  30  EFFECTS;  NOT  USED  IF  123=2 

0020  C  123  2  FOR  20  CASE  (VNX=VNY=0);  3  FOR  30  CASE 

0021  C  AO  CASCADE  COEFS.  A(1) 

0022  C  Al  CASCADE  COEFS.  A(2) 

0023  C  CLM  LIFT  COEF.  NORMALIZED  TO  MEAN  RELATIVE  VELOCITY 

0024 

0025  PARAMETER  (  NAM0AM=90,  NFRMX=15,  NYSMX=101,  NSTAMX=11) 

0026 

0027  EQUIVALENCE  (  F(1),  VY(1)) 

0028 

0029  COMHON/NO/  GJ(NAHOAM,NFRMX,NFRMX),  HJ(NAMOAM.NFRMX,NFRMX), 

0030  +  BJ(NAMOAM,NFRMX),  T J(NAM0AM,NFRMX) , 

0031  *  AMOAJ(NAMOAM),  FCP(NYSMX),  V(NFRMX), 

0032  +  XAXIS(NSTAMX),  XCC(NYSMX>. 

0033  +  AMOA,  AMOI,  AMOAMN,  AMOAMX, 

0034  *  NAMOA,  NFR,  NFRSO,  NFRSOP,  NYS,  NYSM, 

0035  +  PI,  PI2,  TOC 

0036 

0037  DIMENSION  A(NFRMX},  DUNHYCNYSNX),  F(NYSNX}, 

0038  ♦  GHV(  NFRMX*(NFRMX+1)  ), 

0039  ♦  VECLNFRHX),  VNX(MSTA),  VNY(NSTA),  VX(NYSMX),  VY(HYSMX) 

0040 

0041  C  100  FIND  FUNCTION  VALUES  FOR  PARTICULAR  STAGGER  ANGLE  i 

0042  IF  (  AMDAMN.GT.STAG  .OR.  AMOAMX. LT. STAG  )  THEN  ' 

0043  PRINT  •,  'CHECK  STAG...',  STAG,  AMOAMN,  AMOAMX 

0044  STOP  'MELLOR3.101'  j 

0045  END  IF  |  g 

0046 


0047 

CO 

=COSO(ALPHAM) 

0048 

L 

=(STAG-AMOA)/AMOI  +  1.00001 

0049 

LP 

=L+1 

0050 

R2 

=(  AMOAJ(L)-STAG  )/(  AMOAJ(L)-AMOAJ(LP)  ) 

0051 

R1 

=1-R2 

0052 

0053 

IF  (123. 

E0.2)  THEN 

0054 

0055 

TEM 

=-CB*CO 

0056 

DO 

1=1, NYS 

0057 

F(I) 

=FCP(I)*TEM 

0058 

END 

DO 

0059 

0060 

ELSE 

0061 

t. 

0062 

CALL 

SPLINK  NSTA,  XAXIS,  VNY,  NYS,  XCC,  VY,  DUMMY, 

DUM,  1., 

0063 

♦ 

1.E-9) 

0064 

0065 

CALL 

SPLINK  NSTA,  XAXIS,  VNX,  NYS,  XCC,  VX,  DUMMY, 

DUM,  1., 

0066 

+ 

1.E-9) 

0067 

0068 

DO 

1=1, NYS 

0069 

Fd) 

=VY(I)  -  (  VX(I)+CO  )  *  FCP(I)  •  CB 

1 

0070 

END 

DO 

0071 

0072 

END  IF 

0073 

0074 

CALL 

FILONC(  NYSM,  F,  NFR,  VEC) 

0075 

0076 

KN 

=0 

0077 

DO 

I 

VAX  FORTRAN  V4.0-2  P 

DUAO: [CHIANG.3037.DSN]MELL0R3.F0R;35 


0078  GHV(M+NFRSO)  =VEC{N)/Pt  -  (  (  BJ(L,N)*R1*BJ(LP,N)*R2  )*CB  ♦ 

0079  +  (  TJ{L.N)*R1+TJ{LP,N)*R2  )  )*TOC 

0080  DO  K=1,NFR 

0081  GHV(KN+K)  =(  GJ(L,N,K)»R1*GJ<LP,N,IC)*R2  )  - 

0082  +  <  HJ(L,N,K)*R1+HJ(LP,M,IO*R2  )*CB 

0083  END  DO 

0084  KN=KN+NFR 

0085  END  DO 

0086  GHV(NFRSOP)  =GHV(NFRSQP)  +  SIND'ALPHAM) 

0087 

0088  C  600  CALC.  FOURIER  COEFS.  ********** 

0089 

0090  CALL  SIMULU  3,  NFR,  GMV,  A,  1.E-9.  DETER) 

0091 


0092 

C  700  CALC. 

LIFT  COEF.  CLM 

0093 

AO 

=A(1) 

0094 

A1 

=A{2) 

0095 

CLM 

=(A0+A1)*PI2 

0096 

0097 

RETURN 

0098 

END 

PROGRAM  SECTIONS 


Name 

Bytes 

Attributes 

0  SCOOE 

928 

PIC  CON 

REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

1  SPDATA 

36 

PIC  CON 

REL 

LCL 

SHR 

NOEXE 

PD 

NOWRT 

LONG 

2  SLOCAL 

2540 

PIC  CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

3  NO 

174124 

PIC  OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

177628 

ENTRY  POINTS 

Address  Type 

Name 

References 

0-00000000  • 

MELLOR3 

1# 

VARIABLES 

Address  Type 

Name 

Attributes 

References 

AP- 000000203  R*4 

AO 

1 

93= 

95 

AP- 000000243 

R*4 

A1 

1 

94= 

95 

AP- 000000043  R*4 

ALPHAM 

1 

47 

86 

3-0002A7F8 

R*4 

AMDA 

COMM 

29 

48 

3-0002A800 

R*4 

AMOAMN 

COMM 

29 

42 

43 

3-0002A804 

R»4 

AMDAMX 

COMM 

29 

42 

43 

3-0002A7FC 

R*4 

AMD  I 

COMM 

29 

48 

AP- 000000083 

R*4 

C8 

1 

55 

69 

78 

81 

AP- 000000283 

R*4 

CLM 

1 

95= 

** 

R*4 

CO 

47= 

55 

69 

2-00000900 

R*4 

DETER 

90A 

2-000008F4 

R*4 

DUM 

62A 

65A 

** 

1*4 

I 

56= 

57(2) 

68= 

69(4) 

AP- 000000 1C3 

1*4 

123 

1 

53 

** 

1*4 

K 

80= 

81(5) 

2-000008F8 

1*4 

KN 

76= 

81 

84(2)= 

** 

1*4 

L 

48= 

49 

50(2) 

78(2) 

81(2) 

** 

1*4 

LP 

49= 

50 

78(2) 

81(2) 

2-000008FC 

1*4 

N 

77= 

78(6) 

81(4) 

3-0002A808 

1*4 

NAHDA 

COMM 

29 

3-0002A80C 

1*4 

NFR 

COMM 

29 

74A 

77 

80 

84 

3-0002A810 

1*4 

NFRSO 

COMM 

29 

78 

3-0002A814 

1*4 

NFRSOP 

COMM 

29 

86(2) 

AP- 000000 103 

1*4 

NSTA 

1 

37(2) 

62A 

65A 

3-0002A818 

1*4 

NYS 

COMM 

29 

56 

62A 

65A 

68 

3-0002A81C 

1*4 

NYSM 

COMM 

29 

74A 

3-0002A820 

R*4 

PI 

COMM 

29 

78 

3-0002A824 

R*4 

PI2 

COMM 

29 

95 

*« 

R*4 

R1 

51  = 

78(2) 

81(2) 

** 

R*4 

R2 

50= 

51 

78(2) 

81(2) 

-B-114- 


AP-OOOOOOOca  R*4 

STAG 

1 

42(2) 

43 

48 

50 

*« 

R*4 

TEM 

55= 

57 

3-0002A828 

R*4 

TOC 

COMM 

29 

78 

ARRAYS 

Address 

Type 

Name 

Attributes 

Bytes 

Dimensions 

References 

2-00000194 

R*4 

A 

60 

(15) 

37 

90A 

93 

94 

3-0002A300 

R*4 

AMOAJ 

COMM 

360 

(90) 

29 

50(3) 

3-00027800 

R*4 

BJ 

COMM 

5400 

(90,  15) 

29 

78(2) 

2-000001D0 

R*4 

DUMMY 

404 

(101) 

37 

62A 

65A 

2-00000000 

R*4 

F 

eouiv 

404 

(101) 

27 

37 

57= 

69=  74A 

3-0002A468 

R*4 

FCP 

COMM 

404 

(101) 

29 

57 

69 

2-00000364 

R*4 

GHV 

960 

(240) 

37 

78= 

81= 

86(2)=  90A 

3-00000000 

R*4 

GJ 

COMM 

81000 

(90.  15,  15) 

29 

81(2) 

3-00013C68 

R*4 

HJ 

COMM 

81000 

(90,  15.  15) 

29 

81(2) 

3-000280E8 

R*4 

TJ 

COMM 

5400 

(90,  IS) 

29 

78(2) 

3-0002A5FC 

R*4 

V 

COMM 

60 

(15) 

29 

2-00000724 

R*4 

VEC 

60 

(15) 

37 

74A 

78 

AP-00000014a  R*4 

VNX 

*• 

(*) 

1 

37 

6SA 

AP-00000018a  R*4 

VNY 

•• 

(*) 

1 

37 

62A 

2-00000760 

R*4 

VX 

404 

(101) 

37 

65A 

69 

2-00000000 

R*4 

VY 

EOUIV 

404 

(101) 

27 

37 

62A 

69 

3-0002A638 

R*4 

XAXIS 

COMM 

44 

(11) 

29 

62A 

65A 

3-0002A664 

R*4 

XCC 

COMM 

404 

(101) 

29 

62A 

6SA 

PARAMETER  CONSTANTS 


Type  Name  References 


1*4 

NAMOAM 

25# 

29(5) 

1*4 

NFRMX 

25l» 

29(7) 

37(4) 

1*4 

NSTAMX 

25# 

29 

1*4 

NYSMX 

25# 

29(2) 

37(4) 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 

Type 

Name 

References 

FI LONG 

74 

R*4 

MTHSCOSD 

47 

R*4 

MTHSSINO 

86 

SIMUL1 

90 

SPLIN1 

62  65 

KEY  TO  REFERENCE  FLAGS 
=  '  Value  Modified 

#  •  Defining  Reference 

A  '  Actual  Argunent,  possibly  modified 

D  *  Data  Initialization 

(n)  -  Number  of  occurrences  on  line 

♦ . . 


-B-H5- 


1-JLin-1988  14:57:38  VAX  FORTRAN  V4.0-2  P 

1-Jun-1988  14:54:08  OUAO: [CHIANG.3037.0SN31PFM3.FOR;2 

0001  SUBROUTINE  PFM3 

0002  C  (3037-0SN3-PFM3)  (P)  PERFORMANCE  STUDY  IN  30  FLOU 
0003  C  Refernced  by  MAIN  (DSN3) 

0004  C  References  MELLOR3  &  MTHSATAND  (twice),  MTHSCOSO.  &  MTHSTAND 
0005  C  Use  statements  with  CRHO  instead  if  density  is  not  constant 

0006  C  Use  statements  with  CSO  instead  if  BO  &  B1  are  allowed  to  vary  during 

0007  C  i  terat  i  on 

0008  C  To  be  compiled  by  VAX-11  FORTRAN,  v.4.0 

0009  C  Coded  09APR87;  REVISED  16APR87;  SLIGHTLY  REVISED  15JUN87;  TOUCHED  01JUN88 
0010 

0011  PARAMETER  (  NSTAMX=11) 

0012 

0013  COMNON/DIJ  P/  NSTA,  USTAR 

0014  COMMON/DI  P/  EPSA,  lOBUG,  MMAX 

0015  COMMON/D  JLP/  R1N,  R2N 

0016  COMMON/D  J  P/  SIG 

0017  COMMON/D  LP/  BETA1,  BETA2,  TANB1,  TANB2 

0018  COMMON/D  P/  AO,  A1,  BO,  C8,  CHI,  CLM,  F,  PHI,  SIGN,  STAG,  TANBO 

0019  COMMON/  I  P/  CONFC,  CONFSO 

0020  COMMON/  J  P/  B(NSTAMX),  BK(NSTAMX),  RHO(NSTAMX),  RN(NSTAMX), 

0021  *■  UMIN,  UH2N 

0022 

0023  DIMENSION  VNX(NSTAMX),  VNY(NSTAMX),  VNMUXK(NSTAMX),  VNZEYX(NSTAMX) 

0024 

0025  C  100  CONSTANTS 

0026  ALPHAO  <B0-STAG 

0027  BRH01  =B(1) 

0028  CRHO  BRH01  =B(1)*RHO(1) 

0029  CBO  CONI  >SIG  *  .5  /  COSO(BO) 

0030  RSOMN  =(R1N*R1N')'R2N*R2N)*.5 

0031  CBO 

0032  SIGH  -SIG*. 5 

0033  XI  °(R2N*UM2N-R1N*UM1N]/PHI 

0034  XIH  *XI*.5 

0035  XIH1M  sl.-XIH 

0036 

0037  C  300  INITIAL  VALUES 

0038  M  >0 

0039  BETAIO  *BETA1 

0040  CBO  sCB 

0041  EPSBO  >BETA1-BETA2 

0042  STAGO  ^STAG 

0043  PSIH  =(F+CHI)*PHI 

0044  IF  (lOBUG.GT.O)  URITE(6,310)  TANB1,  TANB2 

0045 

0046  310  FORMATf///'  *  SUB  PFM3  *'//'  TANB1  &  TAHB2  ='2X2F9.5) 

0047  URITE(6,320)  PHI,  PSIH+PSIH,  CHI,  XI,  CHI/F,  PSIH*USTAR*USTAR 

0048  320  FORMAT(// 

0049  ♦  '  LOCAL  FLOU  COEFFICIENT,  PHI,  ='F20.5/ 

0050  +  '  LOCAL  ENTHALPY  RISE  COEFFICIENT,  PSI,  »',F11.5/ 

0051  +  '  STREAM  INCLINATION  PARAMETER,  CHI,  -'F14.5/ 

0052  ♦  '  AXIAL  VELOCITY  VARIATION  PARAMETER,  XI,  ='F9.5/ 

0053  4^  '  Chi/F  RATIO  (MAGNITUDE  SHOULD  BE  NO  HIGHER  THAN  .2  TO  .3)  =' 

0054  +  F9.5/ 

0055  +  '  RISE  OF  TOTAL  ENTHALPY,  del  H,  ='F18.5/// 

0056  ♦  30X'Lift  Cir.para.  Turnning'23X 

0057  +  'Stagger  delta'/ 

0058  ♦  '  M  AO  A1  coeff.  F  Angle  ', 

0059  ♦  'Beta  1  Cb  Angle  T.  Angle'/) 

0060  IF  (IDBUG.GT.O) 

0061  +  WRITE(6,7110)  0,  AO,  A1,  CLM,  F,  EPSBO,  BETAIO,  CB,  STAG 

0062  IF  (MMAX. GT. 100)  THEN 

0063  PRINT  *,  'MMAX  ALLOWED  TO  BE  >  100?  CHECK...',  MMAX 

0064  STOP  'PFM3i290' 

0065  END  IF 

0066 

0067  DO  1=1, NSTA 

0068  VNZEYKd)  »(  RN{I)*RN(I)-RSOMN  )/PHI 

0069  VNMUXK(I)  =(  BRH01/  B(I)  -1.  )*XIH1M/BK( I )  -  XIH 

0070  CRHO  VHMUXK(I)  =(  BRH01/(  B(I)*RH0(I)  )-1.  )*XIH1M/BK( I )  ■  XIH 

0071  END  DO 

0072 

0073  C  400  START  AN  ITERATION  PROCESS  WITH  NEU  CB  &  STAG 
0074  410  TANS  =TAND(STAG) 

0075  0  =1.*TANB0*TANS 

0076  00  1=1, NSTA 

0077  VNZEY  =VNZEYK(I)/0 


-B-116- 


0078 

VNMUX  SVNMUXKC I }/Q 

0079 

VNX(I)  =VNZEY*TANS  +  VNMUX 

0080 

VNY<I)  =VMZEY  -  VNMUX*TANS 

0081 

END  DO 

0082 

0083 

C1000 

FIND  AO,  A1,  &  CIRculation 

0084 

0085 

CALL  MELLOR3(  BO-STAG,  CB,  STAG,  NSTA,  VNX,  ' 

0086 

CBO 

CALL  NELLOR3(  ALPHAO,  CB,  STAG,  NSTA,  VNX,  ' 

0087 

♦  CLM) 

0088 

0089 

C2000  ADJUST  IF  NECESSARY 

0090 

H  *M+1 

0091 

CBO 

F  *CLM  *  CONI  -  CHI 

0092 

F  sCLM  *  SIGH  /  COSO(BO)  -  CHI 

0093 

TANB1  *TANB2*F 

0094 

BETAI  =ATANO(TANB1) 

0095 

EPSBM  =BETA1-BETA2 

0096 

DEPS  =EPSBO-EPSBM 

0097 

CCC 

0BETA1  =BETA1-BETA10 

0098 

CCC 

IF  (ABS(DEPS)  .GT.  EPSA  .OR.  ABS(OBETAI)  .GT. 

0099 

IF  (ABSCDEPS)  .GT.  EPSA)  THEN 

0100 

0101 

IF  (M.GT.MHAX)  THEN 

0102 

PRINT  *,  'ITERATION  #  EXCEEDED  MMAX 

0103 

STOP  'PFM3.2199' 

0104 

END  IF 

0105 

0106 

CB  *(  DEPS*CONFC/EPSBM  *1.  )  *  CB 

0107 

CCC 

STAG  =STAGO*(DBETA1-DEPS*.5)»CONFSO 

0108 

STAG  sSTAGO-DEPS*CONFSO 

0109 

CBO 

TANBO  =TANB1-F*.5 

0110 

CBO 

BO  =AT AND (TANBO) 

0111 

IF  (lOBUG.GT.O)  URITE(6,7110)  M,  AO,  A1, 

0112 

•-  BETAI 

0113 

GOTO  410 

0114 

END  IF 

0115 

0116 

WRITE<6,7110)  M,  AO,  A1,  CLM,  F,  EPSBM,  BETAI, 

0117 

a  sCS-CBO 

0118 

URITE(6,2020)  Q,  0*100. /CBO 

0119 

2020 

FORMAT<//'  Cb  IS  INCREASED  BY'F7.3',  0R'F6.1'X' 

0120 

0121 

RETURN 

0122 

0123 

7110 

FO«MAT{I5,9F10.5) 

0124 

END 

PROGRAM  SECTIONS 


Name 

Bytes 

0  SCOOE 

1252 

1  SPDATA 

610 

2  SLOCAL 

260 

3  OIJP 

8 

4  DIP 

12 

5  DJLP 

8 

6  DJP 

4 

7  OLP 

16 

8  DP 

44 

9  IP 

8 

10  JP 

184 

Total  Space  Allocated 

2406 

Attributes 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

SHR 

NOEXE 

RD 

NOWRT 

LONG 

PIC 

CON 

REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

PIC 

OVR 

REL 

GBL 

SHR 

NOEXE 

RD 

URT 

LONG 

ENTRY  POINTS 

Address  Type  Name 
0-00000000  PFM3 


References 

1# 


VARIABLES 

Address  Type  Name  Attributes  References 


8-00000000 

R*4 

AO 

COMM 

18 

60 

8SA 

111 

116 

8-00000004 

R*4 

A1 

COMM 

18 

60 

85A 

111 

116 

** 

R*4 

ALPHAO 

26= 

8-00000008 

R*4 

BO 

COMM 

18 

26 

85 

92 

116 

7-00000000 

R*4 

BETAI 

COMM 

17 

39 

41 

94= 

95 

111 

** 

R*4 

8ETA10 

39= 

60 

7-00000004 

R»4 

BETA2 

COMM 

17 

41 

95 

*• 

R*4 

BRHOI 

27= 

69 

8-OOOOOOOC 

R*4 

CB 

COMM 

18 

40 

60 

85A 

106(2)= 

111 

116 

117 

2-00000084 

R*4 

C80 

40= 

117 

118 

8-00000010 

R*4 

CHI 

COMM 

18 

43 

47(2) 

92 

►  ^ 


PPM3 

1-Jun-1988 

14:57:38 

VAX  FORTRAN  V4.0-2 

1-Jun-1988 

14:54:08 

OUAO : [CH 1 ANG . 3037. DSN3] P  FM3 . FOR ; 2 

8-00000014 

R*4 

CLM 

COMM 

18 

60 

85A 

92 

111  116 

9-00000000 

R*4 

CONFC 

COMM 

19 

106 

9-00000004 

R*4 

CONFSO 

COMM 

19 

108 

** 

R*4 

OEPS 

96= 

99 

106 

108 

111  116 

4-00000000 

R*4 

EPSA 

COMM 

14 

99 

•* 

R*4 

EPSBO 

41  = 

60 

96 

*• 

R*4 

EPSBM 

95= 

96 

106 

111 

116 

8-00000018 

R*4 

f 

COMM 

18 

43 

47 

60 

92=  93  111  116 

*• 

1*4 

I 

67= 

68(3) 

69(3) 

76= 

77  78  79  80 

4-00000004 

1*4 

IDBUG 

COMM 

14 

44 

60 

111 

2-OOOOOOBO 

1*4 

M 

38= 

90(2)= 

101 

111 

116 

4-00000008 

1*4 

MMAX 

COMM 

14 

62 

63 

101 

102 

3-00000000 

1*4 

NSTA 

COMM 

13 

67 

76 

85A 

8-OOOOOOIC 

H*4 

PHI 

COMM 

18 

33 

43 

47 

68 

** 

R*4 

PSIH 

43= 

47(3) 

** 

R*4 

0 

75= 

77 

78 

117= 

118(2) 

5-00000000 

R*4 

RIN 

COMM 

15 

30(2) 

33 

5-00000004 

R*4 

R2N 

COMM 

15 

30(2) 

33 

*« 

R*4 

RSOMN 

30= 

68 

6-00000000 

R*4 

SIG 

COMM 

16 

32 

8-00000020 

R*4 

SIGH 

COMM 

18 

32= 

92 

8-00000024 

R*4 

STAG 

COMM 

18 

26 

42 

60 

74  85(2)A  108=  111 

116 

** 

R*4 

STAGO 

42= 

108 

8-00000028 

R*4 

TAN80 

COMM 

18 

75 

7-00000008 

R*4 

TANB1 

COMM 

17 

44 

93= 

94 

7-OOOOOOOC 

R*4 

TANB2 

COMM 

17 

44 

93 

** 

R*4 

TANS 

74= 

75 

79 

80 

3-00000004 

R*4 

USTAR 

COMM 

13 

47(2) 

** 

R*4 

VNMUX 

78= 

79 

80 

•* 

R*4 

VHZEY 

77= 

79 

80 

10-000000B0 

R*4 

UM1N 

COMM 

20 

33 

10-000000B4 

R*4 

UM2N 

COMM 

20 

33 

** 

R*4 

XI 

33= 

34 

47 

** 

R*4 

XIH 

34= 

35 

69 

** 

R*4 

XIH1M 

35= 

69 

ARRAYS 

Address 

Type 

Naeie 

Attributes 

Bytes 

Dimensions 

References 

10-00000000 

R*4 

8 

COMM 

44 

(11) 

20 

27 

69 

10-0000002C 

R*4 

BK 

COMM 

44 

(11) 

20 

69 

-B-ns- 


10-00000058 

R*4 

RHO  COMM 

44 

(11) 

20 

10-00000084 

R*4 

RN  COMM 

44 

(11) 

20 

68(2) 

2-00000058 

R*4 

VNMUXK 

44 

(11) 

23 

69= 

78 

2-00000000 

R*4 

VNX 

44 

(11) 

23 

79= 

85A 

2-0000002C 

R*4 

VNY 

44 

(11) 

23 

80= 

85A 

PFM3  1-Jun-1988  14:57:38  VAX  FORTRAN  V4. 0-2  P 

1-jun-1988  14:54:08  DUAO: [CHIANG.3037.DSN3] PFH3. FOR;2 

2-00000084  R*4  VMZEYK  44  (11)  23  68=  77 

’j# 

PARAMETER  CONSTANTS 


Type  Name 

References 

1*4  NSTAMX 

11# 

20(4) 

23(4) 

LABELS 

• 

Address 

Label 

References 

1-00000051 

310' 

44 

46# 

1-0000007F 

320' 

47 

48# 

0-00000282 

410 

74# 

113 

1-00000231 

2020' 

118 

119# 

»  _ 

1-0000025 A 

7110' 

60 

111 

116 

123# 

• 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


Type 

Name 

Referi 

HELL0R3 

85 

R*4 

HTHSATAND 

94 

R*4 

HTHSCOSD 

92 

R*4 

MTHSTAND 

74 

KEY  TO  REFERENCE  FLAGS 
=  -  Value  Modified 

#  Defining  Reference 
A  -  Actual  Argunent,  possibly  modified 

0  -  Data  Initialization 

(n)  -  Ninber  of  occurrences  on  line 


-B-119- 


23-Hay-1988  14:00:56  VAX  FORTRAN  V4.0-2 

1-0«c-1986  13:47:18  DUAO: CCHIANG.3037.0SN] SIMUL1 . FOR;6 


P 


0001 

SUBROUTINE  StMULK  INOIC,  N,  A,  X,  EPS.  DETER) 

0002 

0003 

C 

(3037-MELLOR-S1MUL1}  SIMULTANEOUS  LINEAR  EOS.  SOLVER  WHICH  USES 

GAUSS- 

0004 

C 

JORDAN  ELIMINATION  METHOD  WITH  THE  MAX.  PIVOT  STRATEGY 

0005 

C 

VS.1:  MATRIX  IN  1-D  FORM 

0006 

C 

REFERENCED  BY  LOOP  (TWICE);  REFERENCES  MTHSMOO 

0007 

C 

OR,  REFERENCED  BY  SIHUL1T 

0008 

C 

INPUT  A,  EPS,  INDIC,  8  N;  OUTPUT  A,  DETER  t  X 

0009 

C 

04NOV86  ADAPTED  FROM  (3037-MELLOR-SIMUL);  WHICH  WAS  ADAPTED,  ON 

150CT86, 

0010 

C 

FROM  S.  MAEKAWA  WHO  ADOPTED  FROM  CARNAHAN,  et  al..  1969,  290-1 

0011 

C 

REVISED  01DEC86 

0012 

0013 

C 

A  AUGMENTED  MATRIX  OF  COEFS.)  W/  COEFF.  MATRIX  IN  THE  1ST  N 

COLS. 

0014 

c 

&  VECTOR  OF  RIGHT  HAND  SIDE  IN  THE  (Ni’DTH  COL.;  IN  THE  FORM  OF 

0015 

c 

(  N  X  Ni'l  )  ARRAY 

0016 

c 

DETER  DETERMINANT  OF  THE  ORIGINAL  COEF.  MATRIX 

0017 

c 

EPS  MIN.  ALLOWABLE  MAGNITUDE  FOR  A  PIVOT  ELEMENT 

0018 

c 

INDIC  COMPUTATIONAL  SWITCH: 

0019 

c 

<0,  TO  COMPUTE  THE  INVERSE  OF  THE  MATRIX  IN  PLACE 

0020 

c 

>0,  TO  COMPUTE  N  SOLS.  CORRESPONDING  TO  THE  SET  OF  LINEAR 

EOS. 

0021 

c 

W/  AUGMENTED  MATRIX  OF  COEFS.  IN  THE  N  BY  N«1  ARRAY  A 

AND  IN 

0022 

c 

ADDITION  TO  COMPUTE  AS  WHEN  IN0IC<0 

0023 

c 

>0,  TO  SOLVE  THE  SET  OF  EOS.  BUT  THE  INVERSE  IS  NOT  COMPUTED  IN 

0024 

c 

PLACE 

0025 

c 

N  «  OF  ROWS  IN  A  MATRIX 

0026 

c 

X  VECTOR  OF  SOLUTIONS,  SIZE  N 

0027 

0028 

PARAMETER  (NMAX>11) 

0029 

0030 

DIMENSION  A(  N*(N«1)  ),  IROW(NMAX),  JCOL(NMAX),  JORO(NMAX). 

X(N), 

0031 

♦  Y(NMAX) 

0032 

0033 

IF  (N.GT.NMAX)  THEN 

0034 

PRINT  *,  'N  >  NMAX...',  N,  NMAX 

0035 

STOP  'SIMUL.10' 

0036 

END  IF 

0037 

0038 

IF  (INOIC. LT.O)  THEN 

0039 

MAX  :N 

0040 

ELSE 

0041 

MAX  =N+1 

0042 

END  IF 

0043 

0044 

DETER  *1 

0045 

DO  200  K=1,N 

0046 

PIVOT  =0. 

0047 

IF  (K.EQ.I)  THEN 

0048 

DO  60Is1,N 

0049 

IJ  «I 

0050 

DO  60  J  =1,N 

0051 

IF  (  ABS(  A(IJ)  )  .GT.  ABS(PIVOT)  )  THEN 

0052 

PIVOT  >A(IJ) 

0053 

IROU(I)  3| 

0054 

JCOL(I)  =J 

0055 

END  IF 

0056 

60  U=U*H 

0057 

c 

60  CONTINUE 

0058 

ELSE 

0059 

KMI  =K-1 

0060 

D01 701*1, N 

0061 

IJ  *I 

0062 

DO  ISCAN*1,KM1 

0063 

IF  (  I  .EO.  IPOW(ISCAN)  )  GO  TO  170 

0064 

END  DO 

0065 

DO  160  J*1,N 

0066 

DO  JSCAN*1,KM1 

0067 

IF  (  J  .EO.  JCOL(JSCAN)  )  GO  TO  160 

0068 

END  DO 

0069 

IF  (  ABS(  A(IJ)  )  .GT.  ABS(PIVOT)  )  THEN 

0070 

PIVOT  sA(IJ) 

0071 

IROW(K)  *I 

0072 

JCOL(K)  *J 

0073 

END  IF 

0074 

160  IJ*IJ+N 

0075 

170  CONTINUE 

0076 

0077 

ENO  IF  -B-120- 

A  ^ 


•  d 


0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


!F  (  ABS(PIVOT)  .LT.  EPS  )  THEN 
PRINT  *.  '...PIVOT  <  EPS...',  PIVOT,  EPS 
STOP  'SINUL,55' 

END  IF 


IROUK 

-IROW(K) 

JCOLK 

>JCOL(K) 

JN 

»{JCOLK-1)*N 

DETER 

=OETER*PIVOT 

IJ 

«IROUK 

DO  J 

>1,MAX 

AdJ) 

*AdJ)/PIVOT 

IJ 

>IJ4-N 

END  DO 

AdROUK^JN)  *1. /PIVOT 

IJC  »JN 

DO  I>1,N 

IJC  “IJC+1 
IF  (I.NE.IROUK)  THEN 
AIJCK  sAdJC) 

AdJC)  s-AIJCK/PIVOT 

IJ  -I 

IRHIbIROUK-I 
DO  J>1,HAX 

IF  (J.NE.JCOLK)  AdJ)>AdJ)-AIJCK*AdJ«IRMI) 
IJ  «IJ+N 

END  DO 
END  IF 
END  00 
200  CONTINUE 

JN  x(HAX-1)*N 

DO  I  >1,N 

IROUI  alROWd) 

JCOLI  xJCOLd) 

JORDdROUI)  =JCOLI 

CCC  IF  <INOIC.GE.O)  X(JC01.I)sAdR0WdJN} 

X(  JCOLI  )sAdROWdJN) 

END  DO 
INTCH  *0 

00  I»1,N-1 

IP1  *I*1 

DO  J  >IP1,N 

IF  (  JORO(J).LT.JOROd}  )  THEN 
JTEHP  "JOROCJ) 

JORD<J)  sJOROd) 

JORD< I )  sJTEHP 

INTCH  =INTCH+1 

END  IF 
END  DO 
END  DO 

IF  (  M00<INTCH,2)  .GT.  0  )  OETER=-OETER 
IF  (INDIC.GT.O)  GOTO  180 

JN  '0 

DO  J  x1,N 

DO  I  =1,N 

Y(  JCOLd)  )  sA(  IROUd)*JN  ) 

END  DO 
DO  I  =1,N 

Ad+JN)  =Yd) 

END  DO 

JN  =JN«N 
END  DO 

DO  1  =1,N 

DO  J  3l,N 

Y(  IROW{J)  )  =A(  I  ♦  (  JCOL(J)-1  )*H  ) 

END  DO 
IJ  °I 

DO  J  »1,N 

AdJ)  =Y<J) 

IJ  =IJ+N 
END  DO 
END  DO 

180  RETURN 
END 


PROGRAM  SECTIONS 


-B-m- 


Naaw 

Bytes 

Attributes 

0  SCOOE 

1275 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1  SPDATA 

48 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2  SLOCAL 

336 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

WRT 

LONG 

Total  Space  Allocated 

1659 

ENTRY  POINTS 

Address  Type  Name  References 

0-00000000  SIHUL1  1« 

VARIABLES 


Address  Type  Name  Attributes  References 


** 

R*4 

AIJCK 

97= 

98 

102 

AP-ooooooiaa  r*4 

DETER 

1 

44= 

86(2)* 

130(2)= 

AP-00000014a  R*4 

EPS 

1 

78 

79 

*« 

1*4 

I 

48= 

49 

53 

60= 

61 

63 

71 

94= 

96 

99 

100 

110= 

111 

112 

118= 

119 

121 

123 

124 

135= 

136(2) 

138= 

139(2) 

143= 

145 

147 

1*4 

IJ 

49= 

51 

52 

56(2)= 

61  = 

69 

70 

74(2) 

87= 

150(2)= 

89(2) 

90(2)= 

99= 

102(3) 

103(2)= 

147= 

149 

** 

1*4 

IJC 

93= 

95(2)= 

97 

98 

AP-00000004a 

1*4 

INDIC 

1 

38 

131 

1*4 

INTCH 

117= 

125(2)= 

130 

** 

1*4 

IP1 

119= 

120 

1*4 

IRHI 

100= 

102 

1*4 

IROWI 

111= 

113 

115 

** 

1*4 

IROWK 

83= 

87 

92 

96 

100 

1*4 

I  SCAN 

62= 

63 

1*4 

J 

50* 

54 

65= 

67 

72 

88= 

101* 

102 

120= 

121 

122 

123 

134= 

144= 

145(2) 

148= 

149 

1*4 

JCOLI 

112= 

113 

115 

2-OOOOOOC4 

1*4 

JCOLK 

84= 

85 

102 

** 

1*4 

JN 

85= 

141(2)= 

92 

93 

109= 

115 

133= 

136 

139 

•* 

1*4 

JSCAN 

66= 

67 

1*4 

JTEMP 

122= 

124 

2-00000084 

1*4 

K 

45= 

47 

59 

71 

72 

83 

84 

1*4 

KMI 

59= 

62 

66 

2-OOOOOOBO 

1*4 

HAX 

39= 

41  = 

88 

101 

109 

AP-00000008a 

1*4 

N 

1 

30(3) 

33 

34 

39 

41 

45 

48 

50 

56 

60 

65 

74 

85 

90 

94 

103 

109 

110 

118 

120 

134 

135 

138 

141 

143 

144 

145 

148 

150 

R*4 

PIVOT 

46= 

51 

52= 

69 

70= 

78 

79 

86 

89 

92 

98 

ARRAYS 


Address  Type  Name  Attributes  Bytes  Dimensions  References 


AP-OOOOOOOCa  R*4 

A 

** 

(*) 

1 

30 

51 

52 

69 

70 

89(2)= 

92= 

97 

98= 

102(3)= 

115 

136 

139= 

145 

149= 

2-00000000 

1*4 

I  ROW 

44 

(11) 

30 

53= 

63 

71  = 

83 

111 

136 

145 

2-0000002C 

1*4 

JCOL 

44 

(11) 

30 

54= 

67 

72= 

84 

112 

136 

145 

2-00000058 

1*4 

JORD 

44 

(11) 

30 

113= 

121(2) 

122 

123(2 

124= 

AP- 000000 loa  R*4 

X 

** 

(*) 

1 

30 

115= 

2-00000084 

R*4 

Y 

44 

(11) 

30 

136= 

139 

145= 

149 

-B-122- 


PARAMETER  CONSTANTS 


Type  Name 

References 

1*4  NMAX 

Z&t 

30(4) 

33 

LABELS 

Address 

Label 

References 

** 

60 

48 

50 

56# 

0-000001CB 

160 

65 

67 

74# 

0-000001D3 

170 

60 

63 

75# 

0-000004FA 

180 

131 

154# 

** 

200 

45 

107# 

KEY  TO  REFERENCE  FLAGS 

*  -  Value  Modified 

#  -  Defining  Reference 

A  -  Actual  Argunent,  possibly  modified 

0  -  Data  initialization 

(n)  -  Number  of  occurrences  on  line 


-B-123- 


15-Jun-198S  14:20:19  VAX  FORTRAN  V4.0-2  P 

24-M8y-1988  14:59:22  DUAO: [CMIANG.3037.DSN3] SPL1N1 . FOR;3 


0001 

0002 

0003 

0004 

OOOS 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 


SUBROUTINE  SPLINU  N,  X,  Y,  NARG,  DOMAIN,  FUNC,  OERIV,  SUM,  SEND, 

•  EPS) 

C  (3037-OSN3-SPLIN1)  ^S)  CUBIC  SPLINE  INTERPOLATION  (AND  INTEGRATION) 

C  (3037-HELL0R-SPLIN1)  CUBIC  SPLINE  INTERPOLATION  (AND  INTEGRATION) 

C  Version  1  •  BASIC  SPLINE  SUBROUTINE 

C  SEE  ALSO  Version  2  *  INCLUOING  SINGLE  ARGUMENT  INTERPOLATION  & 

C  EXTRAPOLATION 

C  SEE  ALSO  Version  3  -  INTEGRATION  TO  EVERY  PT. 

C  REFERENCED  BY  (3037-0SN3-DSN2)  I  (3037-DSN3-MELL0R3)  (TWICE) 

C  REFERENCED  BY  (3037-HELL0R- INPUT)  (4  TIFffiS)  t  (3037-MELLOR-LOOP)  <4  TIMES) 
C  REFERENCES  NONE 

C  INPUT  EPS,  DOMAINC*),  N,  NARG.  X(*),  AND  Y(*) 

C  OUTPUT  OERIV(*).  FUNC(*),  AND  SUM... 

C  ADAPTED  FROM  (SOOI-SPLINi),  24(X:T86 
C  SLIGHTLY  REVISED  20MAY87;  INCREASED  DIM  24MAY88 

C  DERIV  OUTPUT  VECTOR  (SIZE  NARG)  CONTAINING  DERIVATIVE  VALUES  FOR 
C  DOMAIN(*) 

C  DOMAININPUT  VECTOR  (SIZE  NARG)  CONTAINING  DOMAIN  VALUES  FOR  WHICH  THE 
C  DERIVATIVE  OR  FUCTIONAL  VALUE  IS  TO  BE  COMPUTED 

C  EPS  ERROR  TOLERANCE  IN  ITERATIVE  SOL.  OF  SIMUL.  EOS. 

C  FUNC  OUTPUT  VECTOR  (SIZE  NARG)  CONTAINING  INTERPOLATED  FUNCTION 

C  VALUES  FOR  OOMAIN(*) 

C  MXN  MAX.  VALUE  OF  N 

C  N  #  OF  DATA  PTS.;  2<N<MXN 

C  NARG  #  OF  ARGUMENTS  FOR  WHICH  FUNC(*)  &/OR  DERIV(*)  ARE  REO'D.; 

C  POSITIVE  IF  THE  INTEGRAL  IS  NEEDED;  NEG.  IF  THE  INTEGRAL  IS  NOT 

C  NEEDED;  0  IF  ONLY  THE  INTEGRAL  IS  NEEDED  (NEITHER  FUNC  NOR  DERIV 

C  IS  NEEDED);  ABS(NARG).LE.NARGMX 

C  NARGMXMAX.  VALUE  OF  ABS(NARG) 

C  OMEGA  RELAXATION  FACTOR  FOR  SUCCESSIVE  OVER -RELAXATION 
C  SEND  A  FACTOR  TO  BE  APPLIED  TO  S(2)  &  S(N-1)  TO  OBTAIN  S(1)  &  S(N), 

C  RESPECTIVELY,  S  BEING  CURVATURE;  HOPMALLY  0,  .5,  OR  1 

C  SUM  INTEGRAL 

C  X  VECTOR  (SIZE  N)  CONTAINING  DOMAIN  VALUES  OF  THE  DATA  PTS.  [X(1) 

C  VALUES  SHOULD  BE  IN  ACCENDING  ORDER] 

C  Y  VECTOR  (SIZE  N)  CONTAINING  RANGE  VALUES  OF  THE  DATA  PTS. 

PARAMETER  (  MXN-100,  NARGNX«201) 

DIMENSION  OERIV(NARGMX),  OOMAIN(NARGMX),  OX(MXN),  DYOX(MXN), 

•  FUNC(NARGMX),  G(MXN),  S(MXN),  WORX(MXN),  X(M),  Y(N) 

DATA  MN I  TER/3/,  MX I  TER/50/,  OMEGA/ 1 .071796768/ 

C  0MEGA=8.-4.»SaRT(3.) 

C  100  CHECK 

IF  (N.GT.MXN  .OR.  N.LT.3  .OR.  ABS(NARG).GT.NARGMX)  THEN 
PRINT  *,  'CHECK  N  OR  NARG...',  N,  NARG,  MXN,  NARGMX 
STOP  'SPLINE. Ill' 

END  IF 

C  200  OYDX 

NM1  =N-1 

DO  I=1,NM1 

DX(I)  =X(I+1)-X(I) 

OYOX(I)  =(  Y(I*1)-Y(I)  )/OX(I) 

END  DO 

C  300  S  S  G 

DO  I>2,NM1 

0X2  *X(I+1)-X(I-1) 

WORK(I)  4X(I-1)/DX2 

DYDX2H  ={  0YDX(I)-DYDX(I-1)  )/DX2 

S(I)  =0Y0X2H+0Y0X2H 

G(I)  =S(I)*DYDX2H 

END  DO 

DO  I<2,NM1 

WORK(I)  =WORK(I)*.5 
END  DO 

S(1)  »S(2)*SENO 
S(M)  =S(N-1)*SENO 


ITER 
330  ETA 
ITER 


»0 

*0. 

"ITER+1 
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0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
I  0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 


00  1=2, NM1 

TEM  *{  G(I)  -  WO«IC(  I  )*S(  I  - 1 )  -  (  .5-UORK(l)  )*S(I+1) 
-  S(I)  )  •  OMEGA 
ETA  =AMAX1(  ABS(TEM),  ETA) 

Sd)  =S(I)+TEM 

EMD  00 

IF  (ITER.LT.MNITER)  GOTO  330 
IF  (ETA.GT.EPS)  THEN 
IF  (ITER.LT.HXITER)  GOTO  330 
00  1=1, N 

URITE(6,*)  I,  X(I),  Y(I),  C(I),  S(I),  UORK(l) 

END  OO 

PRINT  *,  'MOT  COMVERGEO...  ',  MXITER,  ETA,  EPS 
STOP  'SPLINE. 344' 

ENO  IF 

IF  (NARG.EO.O)  GOTO  520 


00  1=1, NM1 

G(i)  =(  s(i*i)-s(i)  )/ox(n 

ENO  00 

C  400  CALC.  FUNCTION  VALUES  AND  DERIVATIVES 
DO  J=1,ABS(NARG) 

I  *1 

DOM  =OOMAIN(J) 

IF  (  X(1).GT.OOM  .OR.  X(N).LT.DOM)  THEN 
PRINT  *,  'ARGUMENT  OUT  OF  RANGE...  ',  J,  N,  DOM,  X(1),  X{M) 

STOP  'SPLINE. 411' 

END  IF 

430  I  =1+1 

IF  (  X(I>.LT.DOM  )  GOTO  430 
I  =1-1 

H  =OOM-X(I) 

T  =OOM-X{I+1) 

HT  =H*T 

DSQS  =(  0(I)*H+S(I)+S(I)+S{I+1)  )/6. 

FUMC<J)  =OYOX(I>*H  ♦  HT+OSQS  ♦Y(I) 

OERIV(J)*<H+T)mSQS  +  G(I)»HT/6  ♦  DYOX(I) 

END  00 

C  500  INTEGRATE  FROM  X(1}  TO  X(N) 

IF  (NARG.LT.O)  GOTO  990 

520  SUM  =0. 

DO  J=1,NM1 

H  =OX(J} 

SUM  =(  (Y(J)*Y(J+1))*.5  -  (  S(J)  +  S(J+1)  )»H*H/24.  )*H  ♦  SUM 

END  DO 


C  900 

990  RETURN 
END 


PROGRAM  SECTIONS 


Naaie 

Bytes 

Attributes 

0 

SCOOE 

1648 

PIC  CON  REL 

LCL 

SHR 

EXE 

RD 

NOURT 

LONG 

1 

SPDATA 

98 

PIC  CON  REL 

LCL 

SHR 

NOEXE 

RD 

NOURT 

LONG 

2 

SLOCAL 

2232 

PIC  CON  REL 

LCL 

NOSHR 

NOEXE 

RD 

URT 

LONG 

Total  Space  Allocated 

3978 

ENTRY  POINTS 


Address  Type  Name 


References 


0-00000000  SPLIN1 


10 


VARIABLES 


Address  Type  Name 


Attributes  References 


** 

R*4 

DOM 

104= 

105(2) 

106 

110 

112 

113 

R*4 

DSOS 

115= 

116 

117 

** 

R*4 

DX2 

63= 

64 

65 

** 

R*4 

DY0X2H 

65= 

66(2) 

67 

AP- 00000028a 

R*4 

EPS 

1 

86 

91 

** 

R*4 

ETA 

76= 

81(2)= 

86 

91 

R*4 

H 

112= 

114 

115 

116 

117 

125= 

126(3) 

** 

R*4 

NT 

114= 

116 

117 

*« 

1*4 

1 

56= 

57(3) 

58(4) 

62= 

63(2) 

64(2) 

65(2) 

66 

67(2) 

69= 

70(2) 

78= 

79(6) 

82(2) 

88= 

89(6) 

97= 

98(4) 

103= 

109(2)= 

110 

111(2)= 

112 

113 

115(4) 

116(2) 

117(2) 

1*4 

ITER 

75* 

77(2)= 

85 

87 

** 

1*4 

J 

102= 

104 

106 

116 

117 

124= 

125 

126(4) 

2-000007DO 

1*4 

MNITER 

450 

85 

2-000007D4 

1*4 

MX ITER 

45D 

87 

91 

AP- 00000004a 

1*4 

N 

1 

106(2) 

42(2) 

49(2) 

50 

55 

73(2) 

88 

105 

AP‘Ooooooioa 

1*4 

NARG 

1 

49 

50 

95 

102 

121 

2-000007DC 

1*4 

NM1 

55= 

56 

62 

69 

78 

97 

124 

2-000007D8 

R*4 

OMEGA 

450 

79 

AP- 00000024a 

R*4 

SEND 

1 

72 

73 

AP-oooooo2oa 

R*4 

SUM 

1 

123= 

126(2)= 

*■* 

R*4 

T 

113= 

114 

117 

** 

R*4 

TEM 

79= 

81 

82 

ARRAYS 

Address  Type  Naoie 


Attributes 


Bytes  Dimensions 


References 


AP- 0000001 ca 

R*4 

DERIV 

804 

(201) 

1 

42 

117= 

AP-00000014a 

R*4 

DOMAIN 

804 

(201) 

1 

42 

104 

2-00000000 

R*4 

OX 

400 

(100) 

42 

57= 

58 

64 

98 

125 

2-00000190 

R*4 

DYOX 

400 

(100) 

42 

58= 

65(2) 

116 

117 

AP-00000018a 

R*4 

FUNC 

804 

(201) 

1 

42 

116= 

2-00000320 

R*4 

G 

400 

(100) 

42 

67= 

79 

89 

98= 

115 

117 

2-000004B0 

R*4 

S 

400 

(100) 

42 

66= 

67 

72(2)= 

73(2)= 

79(3) 

126(2) 

82(2)= 

89 

98(2) 

115(3) 

2-00000640 

R*4 

WORK 

400 

(100) 

42 

64= 

70(2)= 

79(2) 

89 

AP- 00000008a 

R*4 

X 

** 

(*) 

1 

42 

57(2) 

63(2) 

89 

105(2) 

106(2) 

110 

112 

113 

AP-oooooooca 

R*4 

Y 

** 

(*) 

1 

126(2) 

42 

58(2) 

89 

116 

PARAMETER  CONSTANTS 

Type  Name 

1*4  MXN 
1*4  NARGMX 

LABELS 


References 

40# 

40# 


42(5) 

42(3) 


49 

49 


50 

50 


Address 

Label 

References 

0-00000258 

330 

76# 

85 

0-000004F8 

430 

109# 

110 

0-000005F3 

520 

95 

123# 

0-0000066F 

990 

121 

130# 

87 
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APPENDIX  C 


BRIEF  INSTRUCTIONS  ON  SAMPLE  INPUT  DATA 


C.l  PROGRAM  SCM 


The  following  is  a  nomenclature  of  the  input  data  used  in  Program 
SCM. 


IBFLOW=-2  IF  G,  CM(*),  R(*)  &  Q(*)  ARE  INPUT  DATA; 

=-l  FOR  NONUNIFORM  INFLOWS; 

=  0  FOR  UNIFORM  INFLOW; 

=  1  IF  DATA  ARE  AVAILABLE  FROM  BLADE  TO  BLADE  CALCULATIONS; 
=10  TO  USE  SUB  BBFLOW  TO  PREPARE  INPUT  DATA. 

IDSN3  =  0  FOR  NO  ACTION; 

=  1  TO  STORE  A  PART  OF  RESULTS  TO  DSN3ZI.DAT  TO  BE  USED  BY 
(3037-DSN3) 

IN  LOGICAL  UNIT  #  FOR  INPUT  FILE 
LG  =0  FOR  SEA  WATER  (DEN=1025  KG/CU.M.); 

=  1  FOR  PURE  WATER  (DEN=1000) ; 

=  2  FOR  GAS. 

READl  (A  DUMMY  LINE  TO  STORE  TITLE,  NOTE...) 

READ2  NM  #  OF  MERIDIONAL  STREAM  LINES,  >=5 

NQ  #  OF  Q-LINES,  >=5 

NQI  LINE  #  OF  Q-LINE  AT  THE  LINE  PRIOR  TO  THE 

LEADING  EDGE  OF  BLADE 
NQB  #  OF  Q-LINES  ON  THE  BLADE 

ICM  =  1  TO  SOLVE  D(CM)/DQ  (INOUE) ; 

=  2  TO  SOLVE  D(CM*CM)/DQ 

READ3  OMG  ANGULAR  VEL.  in  rad/sec 

RAS  REFERENCE  RADIUS  in  m 

DMPCM  DAMPING  FACTOR  USED  IN  CM  ITERATION,  INOUE  1. 

DMPG  DAMPING  FACTOR  USED  IN  G  ITERATION,  INOUE  .5 

DMPL  DAMPING  FACTOR  USED  IN  Q  ITERATION,  INOUE  .1 

EPSCM  CONVERGING  CRITERION  FOR  CM  ITERATION,  INOUE  l.E-6 
EPSG  CONVERGING  CRITERION  FOR  G  ITERATION,  INOUE  l.E-4 

EPSL  CONVERGING  CRITERION  FOR  Q  ITERATION,  INOUE  l.E-4 

READ4  RUMRQ  ANGLE  BETWEEN  Q-LINE  (STRAIGHT)  &  RADIUS  DIR. , 
POSITIVE  C.W.,  in  rad. 

READS  Z  Z-COORINATE  in  m 

READS  PHIDl  ANGLE  BETWEEN  HUB  &  Z-ZXIS  in  deg 

PHIDN  ANGLE  BETWEEN  CASING  &  Z-ZXIS  in  deg 
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READ?  SM  M-COORDINATE  in  itl 

READS  CTH  PERIPHERAL  VEL.  in  m/sec 

READ9  BLO  BLOCKAGE  FACTOR,  Kb= (theta2-thetal) / (2*pi/N) ,  0  TO 

1.  , 

=  1  IF  NO  BLOCKAGE 

*****  reADIO  &  READll  ARE  REQUIRED  ONLY  IF  LG=2  ***** 

READIO  DEN  DENSITY  in  kg/cu.m. 

READll  ENT  CHANGE  OF  ENTROPY  in  J/kg 

*****  READ12  TO  READ15  ARE  REQUIRED  ONLY  IF  IBFLOW=-2  ***** 

READ12  GS  CUMULATIVE  MASS  FLOW  RATE  IN  FLOW-TUBES,  GS(1)  TO 

DESIGNATES  THAT  BN.  J=1  &  J=2 ,  GS(NM-1)=G,  in 

kg/sec 

G  MASS  FLOW  RATE  in  kg/sec 

READ13  CM  MERIDIONAL  VEL.  in  m/sec 

READ14  R  RADIAL  DISTANCE  FROM  AXIS  OF  RATAxION  in  m 

READ 15  H  ENTHALPY  in  J/kg  or  (ro/sec) **2 

*****  READ16  TO  READ21  ARE  REQUIRED  ONLY  IF  IBFLOW=-l  ***** 

READ16  R  RADIAL  DISTANCE  FROM  AXIS  OF  RATATION  in  m 

READ17  NCMNU  #  OF  INPUT  DATA  FOR  INFLOW  VEL.  PROFILE 

READ18  RNUCl  1ST  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE 
INPUT  RNU 

RNUC2  2ND  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE 
INPUT  RNU 

CMNUCl  1ST  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE 
INPUT  MNU 

CMNUC2  2ND  CONVERSION  FACTOR  TO  BE  MULTIPLIED  TO  THE 
INPUT  MNU 

RERR  ALLOWABLE  ERROR  IN  RNU  DATA  IN  m 

EPS  CONVERGENCE  CRITERION  TO  BE  USED  IN  SPLINE  ROUTINE 

VO  FLOW  VEL.  (OR  VEHICLE  VEL.)  AT  FREE  STREAM,  in  m/s 

AFTER  BEEN  MULTIPLIED  BY  VOC 
VOC  CONVERSION  FAC.  TO  BE  MULTI.  TO  VO 

PHO  STATIC  PRES'’URE  HEAD  AT  FREE  STREAM  in  m 

READ19  RNU  RADII  OF  NCMNU  PTS . ,  in  m  AFTER  MULTIPLYED  W/ 

RNUC1*RNUC2 

READ20  CMNU  MERIDIONAL  VEL.  AS  FUNCTION  OF  RNU,  in  m/sec  AFTER 
BEEN  MULTIPLIED  BY  CMNUC1*CMNUC2 

READ21  CPTNU  PRESSURE  COEFFICIENT  AS  FUNCTION  OF  RNU 

*****  READ22  &  READ23  ARE  REQUIRED  ONLY  IF  IBFLOW=0  ***** 
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READ22  G  MASS  FLOW  RATE  in  kg/ sec 

CPTC  CONSTAT  PRESSURE  COEFFICIENT 

VO  FLOW  VEL.  (OR  VEHICLE  VEL. )  AT  FREE  STREAM,  in  m/s 

AFTER  BEEN  MULTIPLIED  BY  VOC 
VOC  CONVERSION  FAC.  TO  BE  MULTI.  TO  VO 

PHO  STATIC  PRESSURE  HEAD  AT  FREE  STREAM  in  m 

READ23  R  RADIAL  DISTANCE  FROM  AXIS  OF  RATATION  in  m 

*****  READ24  TO  READ29  ARE  REQUIRED  ONLY  IF  IBFLOW=l  ***** 

READ24  G  MASS  FLOW  RATE  in  kg/sec 

READ25  CM  MERIDIONAL  VEL.  in  m/sec 

READ26  R  RADIAL  DISTANCE  FROM  AXIS  OF  RATATION  in  m 

READ27  H  ENTHALPY  in  J/kg  or  (m/sec) **2 

READ28  TNA  TN  OF  EQ.  10 


READ29  CTHD 


A  KIND  OF  [ DELTA ( CM*CTH) ] /CM,  FROM  BLADE  TO  BLADE 
PROGRAM 


C.2  PROGRAM  RIS 


The  following  is  the  nomenclature  of  input  data  used  in  Program 
RIS: 

AI  I  function 

All  I  function 

AMDA  Lambda,  in  deg. 

AMDAA  Starting  Lambda,  in  deg. 

AMDAI  Increment  of  Lambda,  in  deg. 

AMDAK  AMDA(KA) 

AMDAZ  Ending  Lambda,  in  deg. 

CO  cos (Lambda) 

EPS  Converging  criterion 

EQUAL  Equal  sign 
K  A  dummy  counter 

KA  Dummy  counter,  for  AMDA 

KAMAX  Max.  allowable  KA 
KAZ  Final  KA 

KX  Dummy  counter,  for  XS 

KXMAX  Max.  allowable  KX 

KXZ  Final  KX  .  ,  ,  .  . 

LENGTH  #  of  characters  for  the  length  of  the  horizontal  lines  in 

table 

N  A  dummy  variable,  1  to  NMAX 

NMAX  Max.  #  of  terms  (either  pos.  or  neg.  side)  in  the  series 

NMAXMX  Max.  N  used 

Q  A  temporary  variable 

Q1  A  temporary  variable 

Q2  A  temporary  variable 

Q3  A  temporary  variable 

Q9  A  temporary  variable 

R  R  function 

RANDI  A  string  contains  R  &  I 

RPI  1/(PI) 

RR  R  function 

SI  sin (Lambda) 

UL  Underline  sign 

XS  (xO-x)/s  =  (xO-x)/c  *  c/s 

XSA  Starting  XS 

XSI  Increment  of  XS 

XSK  XS(KX) 

XSZ  Ending  XS 
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C.3  PROGRAM  MELLOR 


The  following  is  the  nomenclature  of  input  data  used  in  Program 
MELLOR: 


READl  TITLE  (WILL  NOT  SHOW  IN  OUTPUT) 

READ2  TITLE  (TO  BE  SHOWN  IN  OUTPUT) 

READ3 

MH  =  1  TO  CALCULATE  THE  CASE  SHOWN  IN  MELLOR  (1959)  ; 

=  2  FOR  THE  CASE  FOLLOWS  HERRIG,  et  al .  (1951) 

=11  TO  PREPARE  A  TABLE  OF  G,  H,  B,  &  T  FUNCTIONS  (OF 
STAGGER  ANGLE)  FOR  A  SPEIFIED  SOLIDITY 
INCAM  =  1  IF  THE  CAMBER  IS  A  CIRCULAR  ARC; 

=2  IF  THE  BLADE  IS  NACA  65  W/  a=1.0; 

=  3*  IF  THE  CAMBER  IS  TO  BE  CALCULATED  FROM  A  FORMULA 
IFLAT  (NOT  USED  IF  INCAM=1) 

=  0*  IF  THE  INPUT  CAMBER  IS  NOT  TO  BE  MODIFIED; 

=1  IF  THE  SLOPES  OF  INPUT  CAMBER  ARE  TO  BE  KEPT 

CONSTANT  WITHIN  5%  OF  BOTH  ENDS  (SEE  MELLOR,  1959) 

NSEC  #  OF  SEGMENTS  ALONG  THE  CHORD,  e.g.,  50; 

SET  TO  10  IF  MH=1  TO  COMPARE  W/  TABLES  IN  MELLOR  (1959) 

NFR  #  OF  FOURIER  SERIES  TERMS  TO  BE  USED,  e.g.,  NFR=3  TO 

HAVE  AO,  Al,  &  A2 

LIST  =  0  IF  CAMBER  &  THICKNESS  DATA  ARE  NOT  TO  BE  LISTED; 

=  1*  TO  LIST 

READ4 

CBID  INPUT  IDEAL  CB  (KNOWM)  FOR  THE  INPUT  CAMBER;  IF  THE 

CALCULATED,  CB  IS  TO  BE  NEGLECTED;  OTHERWISE,  INPUT  A 
NUMBER  >=9  TO  USE  THE  CALCULATED  CB 
SENDl  A  FACTOR  TO  BE  USED  BY  4  SUB  SPLINl  IN  THIS  ROUTINE.... 

IT  IS  TO  3E  ikUPLIED  TO  S(2)  &  S(N-l)  TO  OBTAIN  S(l)  & 
S(N),  S  BEING  CURVATURE...  NORMALLY  0,  .5,  OR  1 . . . 
e.g.,  1  FOR  CAMBER  &  THICKNESS  DISTRIBUTIONS 

*****  SKIP  READ5  &  READ6,  IF  MH.NE.l  ***** 

READ5  (IIF  MH=1) 

LISTO  =  1  TO  MAKE  DGOO-DTl  &  GOO-Tl  TABLES  (MELLOR,  1959)  ; 

=  2  TO  MAKE  AOl-AT  TABLE; 

=  3  TO  MAKE  CL-AT  TABLE 

READ6  (IIF  MH=1) 

ALPHAM  MEAN  ANGLE  OF  INCIDENCE,  IN  deg.  (NOT  USED  IF  LISTO=l) 

*****  SKIP  READ?  &  READS,  IF  MH.NE.2  ***** 

READ?  (IIF  MH=2) 

IRES  =  1  TO  FIND  LIFT  COEF.  BY  CL=2*PI* (A1+A2 ) ; 

=  2  TO  CALC.  CL  AS  ABOVE  PLUS  BETAl  &  CLl 


ISCL 


=0  TO  DO  NOTHING 

=  1  TO  STORE  CALCULATED  SET  OF  LIFT  COEFFICIENTS  TO  BE 
COMPARED  W/  HERRIG,  et  al.,  1951 

READS  (IIF  MH=2) 

CC  FACTOR  FOR  EFFECTIVE  CB,  <=1,  1  FOR  THEO.  VALUES, 

MELLOR  HAS  .725 

CA  FACTOR  FOR  EFFECTIVE  ALPHA (M) ,  <=1,  1  FOR  THEORETICAL 

VALUES 

CSA  STARTING  C/S  (SOLIDITY)  FOR  CASES  TO  BE  CALCULATED, 

e.g. ,  0 . 

CSI  INCREMENT  OF  C/S  TO  BE  CALCULATED,  e.g.,  2.0 

CSZ  ENDING  C/S,  e.g.,  .5 

SEND5  A  FACTOR  TO  BE  USED  BY  4  SUB  SPLINl  IN  SUB  LOOP...  IT 

IS  TO  BE  APPLIED  TO  S(2)  &  S(N-l)  TO  OBTAIN  S(l)  & 

S(N),  S  BEING  CURVATURE...  NORMALLY  0,  .5,  OR  1... 
e.g.,  .5  FOR  SOME  DISTRIBUTIONS 

*****  SKIP  READ9  IF  MH.NE.ll  ***** 

READ9  (IIF  MH=11) 

CSA  C/S  (SOLIDITY)  FOR  THE  GENERATED  TABLE  OF  G,  H,  B,  &  T 

FUNCTIONS 

READIO 

IDUM  INTEGER  999,  TO  CHECK  THE  END  OF  INPUT  FROM  UNIT  5 

*****  SKIP  READ701  THRU  READ706,  IF  MH.NE.2  ***** 

READ701  (IIF  MH=2) 

NB  #  OF  ELEMENTS  IN  ARRAY  BETAl 

NS  #  OF  ELEMENTS  IN  ARRAY  SIG 

NC  #  OF  ELEMENTS  IN  ARRAY  CBl 

NA  #  OF  ELEMENTS  IN  ARRAY  ALPHAl 

READ702  (IIF  MH=2) 

BETAl  BETA  AT  INLET,  IN  DEG,  SIZE  NB 

READ703  (IIF  MH=2) 

SIG  SOLIDITY,  SIZE  NS 

READ704  (IIF  MH=2) 

CBl  Cb,  SIZE  NC 

READ705  (IIF  MH=2) 

ALPKLM  INCIDENT  ANGLE  AT  INLET,  IN  DEG,  SIZE  NA 
READ706  (IIF  MH=2) 

ICL  INTEGER  VALUES  OF  10000  TIMES  OF  LIFT  COEFFICIENT, 

EXPERIMENTAL  VALUES  WHEN  INPUT,  CALCULATED  VALUES  WHEN 
OUTPUT,  SIZE  (NA,NC,NS,NB) . . .  THOSE  NOT  USED  ARE 
ASSIGNED  A  VALUE  HIGHER  THAN  32600 

READ901 

TITL  TITLE  FOR  THIS  R  &  I  FUNCTION  FILE 
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READ902 

EPS  CLOSING  CRITERION  USED  IN  PROGRAM  RI ,  NO  USE  HERE 

AMDA  STARTING  STAGGER  ANGLE,  IN  DEG 

AMDI  INTERVAL  OF  STAGGER  ANGLE,  IN  DEG 

AMDZ  ENDING  STAGGER  ANGLE,  IN  DEG 

XSA  STARTING  XS  (  [XO-X]/S,  SEE  MELLOR,  1959) 

XSI  INTERVAL  OF  XS 

XSZ  ENDING  XS 

READ903 

R  R  FUNCTION,  SEE  MELLOR,  1959 

AI  I  FUNCTION,  SEE  MELLOR,  1959 

JACK  A  DUMMY  NUMBER,  SHOULD  BE  999  IF  DATA  FILE  IS  CORRECT 

*****  SKIP  READllOl  THRU  READ1104  IF  INCAM. NE. 2  ***** 

READllOl  (IIF  INCAM=2) 

TITL  TITLE  FOR  THIS  CAMBER  DATA  FILE 

READ1102  (IIF  INCAM=2) 

NYC  #  OF  DATA  SETS  FOR  CAMBER  COORDINATES 

READ1103  (IIF  INCAM=2) 

XC  X-COORDINATES  FOR  CAMBER  YC,  SIZE  NYC 

READ1104  (IIF  INCAM=2) 

YC  CAMBER  AS  FUNCTION  OF  XC,  SIZE  NYC 

READ1105 

TITL  TITLE  FOR  THIS  BLADE  THICKNESS  FILE 

READ1106 

NYT  #  OF  DATA  SETS  FOR  BLADE  THICKNESS 

READ1107 

XT  X-COORDINATES  FOR  DATA  OF  THICKNESS  YT,  SIZE  NYT 

READ1108 

YT  HALF-THICKNESS  OF  BLADE  AT  CORRESPONDING  XT,  SIZE  BYT 

READ1109 

JACK  =  999  AS  A  CHECK 
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C.4  PROGRAM  DSN 3 


I 


The  following  is  the  nomenclature  of  the  input  data  used  in  Program 
DSN3: 


READ 1 -TITLE  FOR  THIS  RUN 
READ2-DATA  FOR  THE  SYSTEM 

DEN  FLUID  DENSITY;  ENTER  A  NUMBER,  IN  PROPER  UNIT,  HERE  IF 

IT  IS  CONSTANT  OTHERWISE  ENTER  0  AND  ENTER  THE  DATA  IN 
SUB  '•INP2" 

RPM  ROTATIONAL  SPEED,  IN  rpm 

RSTAR  REFERENCE  RADIUS,  IN  USER'S  UNIT 

CONVR  CONVERSION  FACTOR  TO  BE  MULTIPLY  TO  RSTAR  SUCH  THAT 

RSTAR  IS  IN  METERS  OR  FEET 

READ3 -CONVERGENCE  CRITERIA 

CONFB  CONVERGENCE  FACTOR  FOR  ADJUSTING  BETAO,  e.g.,  .5 

CONFC  CONVERGENCE  FACTOR  FOR  ADJUSTING  CB,  e.g.,  1. 

CONFSA  CONVERGENCE  FACTOR  FOR  ADJUSTING  STAGGER  ANGLE,  STAG, 
e.g.,  0. 

CONFSO  CONVERGENCE  FACTOR  FOR  ADJUSTING  SOLIDITY,  SIG,  e.g., 

1. 

EPSA  CONVERGENCE  CRITERIA  FOR  BOTH  del  EQ.  PHI  AND  del 

BETAl,  e.g.,  .001 

EPSS  CONVERGENCE  CRITERIA  FOR  SOLIDITY  ITERATION,  e.g.,  .001 

EPSSO  ACCEPTABLE  CRITERIA  FOR  INPUT  SOLIDITY,  e.g.,  .01 

MMAX  MAXIMUM  ITERATION  NUMBER  FOR  A  LOOP  (del  EQ.  PHI  &  del 

BETAl)  IN  SUB  "PFM3" 

IDBUG  >  0  TO  HAVE  EXTRA  OUTPUT  FOR  DEBUGGING  PURPOSE; 

=  0  FOR  NORMAL  OUTPUT 

READ4-SOME  NUMBERS  FOR  ROTOR  &  ITS  BLADES 
NBLADE  #  OF  BLADES 

NSECR  #  OF  CROSS-SECTIONS  ALONG  THE  RADIUS  DIRECTION  (USE 

NSECR=1  AT  THIS  MOMENT  BECAUSE  SOLIDITY  VARIES  FROM 
SECTION  TO  SECTION) 

NSTA  #  OF  STATIONS  ALONG  A  CHORD,  INCLUDING  LEADING  & 

TRAILING  EDGES 

INTERP  =  0  TO  READ  THE  SECTION  DATA  DIRECTLY  FROM  INPUT; 

<>  0  TO  OBTAIN  THE  SECTION  DATA  THROUGH  INTERPOLATION 
BASEf^  ON  DATA  READ  FROM  UNIT  21  (IN  SUB  INP2) 

READ2XX....  IN  SUB  "INP2" 

READllXX...  IN  SUB  "MELLOR2" 


. . .AFTER  READ?  IN  "INP" . . . 
READ201  TITLE 
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1 — ' — - - 

>  READ202 

SIG 

INITIALLY  GUESSED  SOLIDITY 

*****  READ203 

TO  READ210  REQUIRED  iff  INTERP=0  ***** 

*  * 

*****  READ210 

REQUIRED  iff  DEN=0  ***** 

REA0203 

CTl 

PERIPHERAL  VEL.  AT  THE  LEADING  EDGE  (L/T) 

CT2 

PERIPHERAL  VEL.  AT  THE  TRAILING  EDGE  ^L/T) 

READ204 

XAX 

X  COORDINATES  ALONG  AXIX  OF  ROTATION,  FOR 

L  i 

EACH  OF  NSTA  STATIONS  ALONG  THE  CHORD  (L) . 

XAX  WILL  BE  NORMALIZED  TO  CHORD  LENGTH,  IN 

SUB  ''MELLOR2”,  SUCH  THAT  XAX(1)=0  & 

XAX (NSTA) =1  (.) 

READ205 

R 

RADIUS  FROM  AXIS  OF  ROTATION  (L) 

READ206 

XM 

DISTANCE  ALONG  STREAMLINE  (M-COORDINATE) 

(L) 

•  • 

READ207 

CM 

MERIDIONAL  VEL.  (L/T) 

READ208 

B 

DISTANCE  BETWEEN  ADJACENT  STREMLINES  (L) 

(EITHER  BETWEEN  I-l  &  I+l  Ok  HALF  OF  THAT) 

READ209 

BK 

BLOCKAGE  FACTOR  OWING  TO  BLADE  THICKNESS 

INSIDE  THE  IMPELLER  (.) 

-  - 

*****  REAr210 

REQUIRED  iff  DEN=0  ***** 

READ210 

RHO 

DENSITY  OF  FLUID  (M/L*3) 

*****  READ211 

REQUIRED  iff  INTERPOO  ***** 

1  REA0211 

RSL 

RADIUS  DISTANCE  OF  THE  STREAMLINE  FROM  THE 

1 

AXIS  OF  ROTATION,  AT  SECTION  IRSL  (SEE 

BELOW)  (L) 

r  • 

(DATA  INPUT  FROM  FILE  #21  ARE  USED  TO 

ESTABLISH  THE  PERAMETERS  BASED  ON  THIS 

RADIUS  &  ITS  NEARBY  INPUT  RADII  BY  SIMPLE 

INTERPOLATION) 

IRSL 

STATION  #  (FROM  1  TO  NSTA)  WHERE  RSL  IS 

DEFINED 

1  i 

1  *****  READ2101  TO  READ210  REQUIRED  iff  INTERPoO  ***** 

1  *****  READ2ill  REQUIRED  iff  DEN=0  ***** 

READ2101 

(REM) 

TITLE  LINE 

_ 

READ2102 

NI 

#  OF  STATIONS  (q-LINES)  FROM  LEADING 

1  <! 

EDGE 

TO  TRAILING  EDGE 

NJ 

#  OF  STREAMLINES 

READ2103 

CTIZ 

PERIPHERAL  VEL.  AT  THE  LEADING  EDGE  (L/T) 

1  « 

READ2104 

CT2Z 

PERIPHERAL  VEL.  AT  THE  TRAILING  EDGE  (L/T) 

READ2105 

XAXZ 

X  COORDINATES  ALONG  AXIX  OF  ROTATION, 

FOR 

EACH  OF  NSTA  STATIONS  ALONG  THE  CHORD  (L) . 

XAX  WILJj  BE  NORMALIZED  TO  CHORD  LENGTH,  IN 

SUB  "MELLOR2'',  SUCH  THAT  XAX(1)=0 

1  • 

& 

XAX (NSTA) =1 

READ2106 

RZ 

RADIUS  FROM  AXIS  OF  ROTATION  (L) 
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1  t 

READ2107 


XMZ 


READ2108 

READ2109 

READ2110 

THICKNESS 


DISTANCE  ALONG  STREAMLINE  (M-COORDINATE) 
(L) 

CMZ  MERIDIONAL  VEL.  (L/T) 

BZ  DISTANCE  BETWEEN  ADJACENT  STREMLINES  (L) 

(EITHER  BETWEEN  I-l  &  I+l  OR  HALF  OF  THAT) 

BKZ  BLOCKAGE  FACTOR  OWING  TO  BLADE 

INSIDE  THE  IMPELLER  (.) 


*****  READ2111  REQUIRED  iff  DEN=0  ***** 
READ2111  RHOZ  DENSITY  OF  FLUID  (M/L*3) 
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